Help with Date & Time Stamp (Comments)

Replace

If .Address <> "$A$1" Then Exit Sub

with (for H1:H99)

If .column <> 8 then exit sub
If .row < 100 then exit sub

If you understand the technique it's easily modified

Hi Andy,

Many thanks for the reply.......replaced the line "If .Address <> "$A$1" Then Exit Sub" with the "If .column <> 8 then exit sub
If .row < 100 then exit sub"


so the coding now is;

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Column <> 8 Then Exit Sub
If .Row < 100 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Dim strNewText$, strCommentOld$, strCommentNew$
strNewText = .Text
If Not .Comment Is Nothing Then
strCommentOld = .Comment.Text & Chr(10) & Chr(10)
Else
strCommentOld = ""
End If
On Error Resume Next
.Comment.Delete
Err.Clear
.AddComment
.Comment.Visible = False
.Comment.Text Text:=strCommentOld & _
Format(VBA.Now, "MM/DD/YYYY at h:MM AM/PM") & Chr(10) & strNewText
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub

Unfortunately it didn't work, so not sure what to do...........

Apologies, i'm a real amateur with these things, don't understand coding at all and trying to get this sorted for a work project which I've been tasked.........