Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Using Error Handling When Using SpecialCells

Sub SpecialCells()      Dim myWorksheet As Worksheet      Dim rgSpecial As Range      Dim rgCell As Range      On Error Resume Next        Set myWorksheet = ThisWorkbook.Worksheets("Sheet1")      Set rgSpecial = myWorksheet.Cells.SpecialCells(xlCellTypeFormulas, xlErrors)      If Not rgSpecial Is Nothing Then          rgSpecial.Interior.Color = vbRed      Else          Debug.Print myWorksheet.Name & " is an error-free worksheet."      End If      Set rgSpecial = Nothing      Set rgCell = Nothing      Set myWorksheet = Nothing  End Sub