Macro - Delete Comments - What if there's none?

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Danny - 14 Dec 2005 22:41 GMT

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.

Reply to this Message

Chip Pearson - 14 Dec 2005 22:56 GMT

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

Signature

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

> Hi,
>
[quoted text clipped - 13 lines]
>
> Thank You.

Reply to this Message