Find cell containing £

[coop123]

Hi

I am using the following code to find cells formatted as currency £.

Cells.Find(What:="£", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

This is giving me the following error message, Run-time error '91': object variable or With block variable not set.

Can someone please give me some help to fix the problem.

Thanks

coop123

 

[coop123]

I changed it back as you suggested but still no success.

I have found another peice of code that does what I need.

Dim rng As Range, r As Range, rFound As Range

Set rFound = Nothing
For Each r In ActiveSheet.UsedRange
If InStr(1, r.Text, "£") > 0 Then
If rFound Is Nothing Then
Set rFound = r
Else
Set rFound = Union(rFound, r)
End If
End If
Next r

If Not rFound Is Nothing Then rFound.Select

Thank you for your time trying to fix my problem.

coop123