Just for the record (finally getting around to posting it), here is the solution I came up with for the problem Code: Private Sub worksheet_change(ByVal Target As Range) Dim CommentText As String Dim LookupRangeEnd As Long On Error Resume Next If Not
Intersect(Target, Columns("AA")) Is Nothing Then With Worksheets("LookupData") LookupRangeEnd = ....