Try replacing all the quote marks… all of them, not just the ones on that line of code… this blog comment processor changes “normal” quote marks to opening/closing ones (notice that they are slanted instead of being straight up and down when you copy/paste the code). I think the code will run for you after you make that replacement.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim T As String
Const TimeRange As String = “D:G”
If Target.Count > 1 Then Exit Sub
With Target
If Not Intersect(Target, Range(TimeRange)) Is Nothing Then
On Error GoTo CleanUp
Application.EnableEvents = False
T = .Value
If T Like “*[aApP]” Then
T = Replace(T, “a”, ” AM”, , , vbTextCompare)
T = Replace(T, “p”, ” PM”, , , vbTextCompare)
ElseIf T Like “*[AaPp][mM]” Then
T = Left(T, Len(T) – 2) & ” ” & Right(T, 2)
End If
If Not IsDate(T) And InStr(T, “:”) = 0 And Len(T) > 1 Then
T = Left(T, InStr(T & ” “, ” “) – 3) & “:” & _
Mid(T, InStr(T & ” “, ” “) – 2)
End If
T = WorksheetFunction.Trim(T)
If IsDate(T) Then
.Value = CDate(T)
Else
MsgBox “That is not a real time value!”
End If
End If
End With
CleanUp:
Application.EnableEvents = True
End Sub

All you need to do is set the TimeRange constant in the Const statement to the range you want to cover. In my example code above, I set that value to “D:G” which means columns D through G are set to convert entries into time values; but you can use any valid range address instead (for example, “C4:F9″) in order to restrict the code’s functionality to just the cells in that restricted range.