Search replace options affected by range.find

[evnoort]

Hi all,

I use a function to search a string in a range. My users now complain it messes up the find-replace options (ctrl+F)

Is there a way to remember these settings and correct them after range.find is used?

Function used

Function FindStringInRange(SearchInRange As Range, SearchFor As String, Optional AfterCell) As Range
                
    Application.ScreenUpdating = False
                    
    If IsMissing(AfterCell) Then
        With SearchInRange
            Set lastcell = .Cells(.Cells.Count)
        End With
    Else
        Set lastcell = AfterCell
    End If
    
    'Find in range
    Set FoundCell = SearchInRange.Find(what:=SearchFor, after:=lastcell, LookIn:=xlValues, _
    lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)
    Set FindStringInRange = FoundCell
    
End Function

 

[CharlesChuckieCharles]

record a macro for a standard search in a clean fresh workbook

then after
Set FindStringInRange = FoundCell

paste the just recorded line replace find with nothing ""
you may need an on error resume next just before it

 

[evnoort]

Thanks!,

I'll try right away. (don't know why I didn't think of that in the first place)