Why am i getting a type mismatch 13 error

[Sahil123]

Hi All,

I dont know why im getting a type mismatch 13 error
(TxtEmpID.Text is a textbox on my userform)

Thank You

Private Sub CmdAddRecord_Click()
Dim Found As Range
Set ws = Sheets("Sheet1")
LRow = ws.Range("A" & Rows.Count).End(xlUp).Row
With ws.Range("E6:E" & LRow)
 
   Set Found = .Find(What:=TxtEmpID.Text, After:=.Range("E6"), _
       LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext, _
       MatchCase:=False, SearchFormat:=False)
    If Not Found Is Nothing Then
        Adr1 = Found.Address
    Else
       MsgBox "Name could not be found"
       Exit Sub
    End If
   
End With
End Sub

 

[Rick Rothstein]

I dont know why im getting a type mismatch 13 error
(TxtEmpID.Text is a textbox on my userform)

Private Sub CmdAddRecord_Click()
Dim Found As Range
Set ws = Sheets("Sheet1")
LRow = ws.Range("A" & Rows.Count).End(xlUp).Row
With ws.Range("E6:E" & LRow)
 
   Set Found = .Find(What:=TxtEmpID.Text, After:=[B][COLOR=#a52a2a].Range("E6")[/COLOR][/B], _
       LookIn:=xlValues, lookat:=xlWhole, SearchOrder:=xlNext, _
       MatchCase:=False, SearchFormat:=False)
    If Not Found Is Nothing Then
        Adr1 = Found.Address
    Else
       MsgBox "Name could not be found"
       Exit Sub
    End If
   
End With
End Sub

The part I highlighted in red looks wrong to me. That leading dot makes the After argument this...

ws.Range("E6:E" & LRow).Range("E6")

which I am pretty sure points to the wrong cell. Try putting ws in front of that dot so the After argument points to E6 on the ws sheet or, since the first cell of the range is the default, just omit the entire After argument.