Advertisement
Guest User

Untitled

a guest
Dec 2nd, 2016
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.41 KB | None | 0 0
  1. Sub testhiddencells()
  2. Dim myRange As Range
  3.  
  4. Set myRange = Range("Location_Address_RangeCheck")
  5. NumRows = Application.WorksheetFunction.CountA(myRange)
  6.  
  7. If Range("Location_Address_RangeCheck").Hidden = True Then
  8. If Application.WorksheetFunction.CountA(Range("Location_Address‌​_RangeCheck")) <> 0 Then
  9. MsgBox "There's something there"
  10. End If
  11. End If
  12.  
  13. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement