Good day All,

I'm new to the forum and this is my first post. Please pardon me if its not quite what you'd expect. I have this piece of code I copied and modified, its supposed to populate an adjacent column with a date when a given column (cell) is marked as "Solved". Please find below the piece of code generating the error. Thanks for you anticipated responses.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Intersect(Target, Range("A2:A100")) = "Solved" Then
        With Target(1, 2)
        .Value = Date
        .EntireColumn.AutoFit
        End With
    End If
End Sub