S
scott
The below function and snipplet will find the string "AD" fine. My problem
is that I have a cell before the cell containing "AD" that contains the word
"Grade". Is there a way to use either LCASE or UCASE to differentiate
between lower case and upper case strings? If so, should I modify the
FINDCELL function to use UCase or LCase?
Set cell = FindCell("*" & sSearchString & "*", Sheets(1).Cells)
Function FindCell(searchFor As String, _
searchRange As Range) As Range
Application.DisplayAlerts = False
With searchRange
Set FindCell = .Find(what:=searchFor, After:=.Cells(.Cells.Count), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
End With
End Function
is that I have a cell before the cell containing "AD" that contains the word
"Grade". Is there a way to use either LCASE or UCASE to differentiate
between lower case and upper case strings? If so, should I modify the
FINDCELL function to use UCase or LCase?
Set cell = FindCell("*" & sSearchString & "*", Sheets(1).Cells)
Function FindCell(searchFor As String, _
searchRange As Range) As Range
Application.DisplayAlerts = False
With searchRange
Set FindCell = .Find(what:=searchFor, After:=.Cells(.Cells.Count), _
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
End With
End Function