checking any cell has comment in the whole column

[osborne]

Hi all. Need help on the following. I would like to write a code that if any cell in column AP has comment, it will prompt a msg box saying has comment. If no comment in any cell in column AP, it will prompt a msgbox saying no comment. As long as any cell in the column AP has comment, it will stop the loop. Somehow i feel it cannot use range. Pls help all the vba expert. Thank u in advance!

lastrow = Range("AP" & Rows.Count).End(xlUp).Row
If Range("AS4:AS" & lastrow).Comment Then
MsgBox "Has comment"
Else
MsgBox "no comment."
End If

 

[footoo]

Sub v()
Dim rng As Range
On Error Resume Next
Set rng = Range("AS4:AS" & Cells(Rows.Count, "AP").End(xlUp).Row).SpecialCells(xlCellTypeComments)
If rng Is Nothing Then: MsgBox "No comment": Else: MsgBox "Has comment"
End Sub

 

[osborne]

Sub v()
Dim rng As Range
On Error Resume Next
Set rng = Range("AS4:AS" & Cells(Rows.Count, "AP").End(xlUp).Row).SpecialCells(xlCellTypeComments)
If Not rng Is Nothing Then: MsgBox "Has comment": Else: MsgBox "No comment"
End Sub

thank u sir!