A
AshMorK
Hi all,
I'm trying to find a text string using a named range as the searching area
but it doesn't work:
Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")
c = ActiveCell.Value
Set RngFound = RngToSearch.Find(c)
If RngFound Is Nothing Then
MsgBox "xxx"
Else
End If
End Sub
Any Ideas??
Thanks in advance.
I'm trying to find a text string using a named range as the searching area
but it doesn't work:
Sub names()
Dim RngToSearch As Name
Dim RngFound As Range
Set RngToSearch = ActiveWorkbook.names("tipos_dcto")
c = ActiveCell.Value
Set RngFound = RngToSearch.Find(c)
If RngFound Is Nothing Then
MsgBox "xxx"
Else
End If
End Sub
Any Ideas??
Thanks in advance.