.Find tweak wanted

[AlexanderBB]

    On Error Resume Next
        With Worksheets(WB)
            Set findRow = .Range(YrColumn).Find(What:=StrTofind, LookIn:=xlValues)
            FindLine = findRow.Row
            Set findRow = Nothing
        End With
    On Error GoTo 0

WB= "Sheet1"
YrColum = "A:A"
StrTofind= "Test"

This finds the first line number with "Test" in Col A. (Or I hope it does without any glitches!)
But sometimes I need to look for "*" & strToFind

Can the above be modified to do that ?

 

[Norie]

You can use the LookAt argument to specify whether to look for a full (xlWhole) or partial (xlPart) match.

 

[AlexanderBB]

Thanks Norie, onto it.