G
Guest
Why do i get this error
Thank You
Esau
Sub aaa()
'
Dim rng As Range, sh As Worksheet
WhatToFind = ActiveCell.Value
For Each sh In
Workbooks.Worksheets 'Highlights .W
orksheets Error Method or Data member not found
sh.Activate
Set rng = Cells.Find(What:=WhatToFind, _
After:=Range("IV65536"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not rng Is Nothing Then
rng.Select
ans = MsgBox("continue searching? ", vbYesNo)
If ans = vbNo Then Exit Sub
End If
Next
End Sub
Thank You
Esau
Sub aaa()
'
Dim rng As Range, sh As Worksheet
WhatToFind = ActiveCell.Value
For Each sh In
Workbooks.Worksheets 'Highlights .W
orksheets Error Method or Data member not found
sh.Activate
Set rng = Cells.Find(What:=WhatToFind, _
After:=Range("IV65536"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not rng Is Nothing Then
rng.Select
ans = MsgBox("continue searching? ", vbYesNo)
If ans = vbNo Then Exit Sub
End If
Next
End Sub