Error 1004 (application-defined) in my VBA code

[CODE]

Sub Find_Name()
Dim Rng As Range
FindString = InputBox("Employee Search(last, first):")
If Trim(FindString) <> "" Then
With Sheets("Active").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng.Offset(0, -1), True DEBUGG HIGHLIGHTS this line?????
Else
MsgBox "Employee Not Found"
End If
End With
End If
End Sub

I am using this code to find employees information in [Active] sheet.

If you searching column A, you can not go to the left of it.

Please Login or Register  to view this content.

Thanks AB33 it works now !!