Danny,

Try


Sub DeleteComments()
Application.Goto Reference:="My_Range"
On Error Resume Next
Selection.SpecialCells(xlCellTypeComments).Select
If Err.Number = 0 Then
Selection.EntireRow.Delete
End If
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

"Danny" wrote in message
...
Hi,

I inserted the Macro below into a series of macros. If there
is(are) NO
comment(s) in the worksheet, my macros will not run properly.
Please edit my
macro so if there is(are) NO comment(s), the rest of the macros
will still
run.

Sub DeleteComments()
Application.Goto Reference:="My_Range"
Selection.SpecialCells(xlCellTypeComments).Select
Selection.EntireRow.Delete
End Sub

Thank You.