Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub testhiddencells()
- Dim myRange As Range
- Set myRange = Range("Location_Address_RangeCheck")
- NumRows = Application.WorksheetFunction.CountA(myRange)
- If Range("Location_Address_RangeCheck").Hidden = True Then
- If Application.WorksheetFunction.CountA(Range("Location_Address_RangeCheck")) <> 0 Then
- MsgBox "There's something there"
- End If
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement