Set a search area (without selecting it)

[evertjvr]

Is is possible to set a search area on a different selection/sheet/workbook without leaving the current selection or leave the current sheet?

I want to use it in conjunction with the

    Set rngFound = Cells.Find(What:=txbNumber, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        
        If Not rngFound Is Nothing Then

...........

Thanks

[OllieB]

Yes, you can. Check the attached code for a demonstration

Public Sub TestKeepingActiveCell()
'# declare
     Dim rngSearch As Excel.Range
     Dim rngFound As Excel.Range
'# set range to search
     Set rngSearch = ThisWorkbook.Worksheets("Sheet2").Range("A1:Z99")
'# show active cell
     MsgBox "the active cell is " & ActiveCell.Address & " on " & ActiveSheet.Name
'# execute search
     Set rngFound = rngSearch.Find(What:="abc")
     If rngFound Is Nothing Then
          MsgBox "nothing found"
     End If
'# show the active cell
     MsgBox "the active cell is " & ActiveCell.Address & " on " & ActiveSheet.Name
End Sub

[evertjvr]

Thanks Ollie B

Your answer did give me good guidance. The parameters in my original line does not work with the "rngSearch" spesification.

Thanks again