Hey Guys!
I have two loops that replace the result of Div / 0 with an empty cell, the problem is that the first loop works and the second one doesn't, there is no error, but only one table has a result
I have two loops that replace the result of Div / 0 with an empty cell, the problem is that the first loop works and the second one doesn't, there is no error, but only one table has a result
Rich (BB code):
Dim MyRange As Range
With wbMe.Sheets("page3").Range("B30:D44")
.EntireRow.Hidden = False
On Error Resume Next
Set MyRange = .SpecialCells(xlConstants, xlErrors)
On Error GoTo 0
If Not MyRange Is Nothing Then
MyRange.ClearContents
End If
With wbMe.Sheets("page3").Range("B76:K89")
.EntireRow.Hidden = False
On Error Resume Next
Set MyRange = .SpecialCells(xlConstants, xlErrors)
On Error GoTo 0
If Not MyRange Is Nothing Then
MyRange.ClearContents
End If