L
LSB
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
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