Hi Experts out there,

Currently I'm having a problem with the the Find function
in VBA. I am actually looking for a cell in another
sheet, but I always get nothing in the range. Can
somebody please help on what is wrong with my code below?

Public Sub finding()

Dim rng As Range
Dim strRange As String
Dim FindText As String

Let strRange = "CB"
Worksheets("CurrentBalance").Range("CB").Select
Let FindText = "23-01-2004"
With Worksheets("CurrentBalance").Range(strRange)
Set rng = .Find(What:="23-01-2004")
End With

If Not rng Is Nothing Then
rng.Activate
Else
MsgBox "Not Found"
End If

End Sub

MANY THANKS IN ADVANCE....

LSB