Macro - Delete Comments - What if there's none?
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. |
Macro - Delete Comments - What if there's none?
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. |
All times are GMT +1. The time now is 10:08 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com