Determine if Cell with Specific Text is Visible in a Range Using VBA

[jewkes6000]

I'm trying to simply find out if a cell with specific text exists in a range. Here is the code I've tried, but it will only return a false argument.

Private Sub UserForm_Initialize()
    Dim rgFound As Range
    Set rgFound = Range("O3:JA3").Find("Base CRX")
    If rgFound = Hidden Then MsgBox ("True")
  
    MsgBox ("False")

End Sub

 

[Rick Rothstein]

Your question is not entirely clear. Does this do what you are looking for?

Private Sub UserForm_Initialize()
  Dim Cell As Range, Found As Boolean
  For Each Cell In Range("O3:JA3")
    If Not Cell.EntireColumn.Hidden And Cell.Value = "Base CRX" Then
      Found = True
      Exit For
    End If
  Next
  MsgBox Found
End Sub

 

[jewkes6000]

@Rick Rothstein - You hit the nail on the head. Your code worked. To be clear (at least I'll try to be clear), I'm trying to cycle through a range (O3:JA3) and find out if any cells containing the text "Base CRX" are hidden (along with the entire column which the text exists on). If this condition exists, then I need a true statement. This code does exactly that. Thank you!

Update - I did need to remove the "Not" to the If Not statement since that statement was what I was looking for.