To “get:” the data, you need to (1) select the cell and (2) move the data to a working variable such as strStringToFind used below. That’s pretty basic.

The code below will allow you to search for that string in any open workbook/worksheet – all variable controlled. Details are:

Input parms:
pfunFindValueOfString is the string you wish to search for.
intOffsetRows & intOffsetCols are the cell you wish to return as offset from the found cell.
strDefaultValue is the string you wish to return if the find fails.

Vars used inside the function:
Every var beginning with “p” is Public – i.e. established outside of the function.
pstrClientWB is the name of the currently open workbook you want to search.
pstrCurrentWorksheet is the name of the worksheet you want to search.
The next few values parameterize the Excel Find function and are well documented.
I use typical “search for values, the whole cell must match, search left to right then down, not case sensitive”.
Finally I return a cell offset from the found cell.

Usage:
strTemp = pfunFindValueOfString(strTemp2, pintcon0, pintcon1, pstrconNull)
strTemp will contain the value in the cell to the right of the found cell using the search string in strTemp2 OR null (pstrconNull).

'  String VALUE finder.

'  Find the value associated with the string in Parm 1.

Public Function pfunFindValueOfString(strStringToFind As String, intOffsetRows As Integer, intOffsetCols As Integer, strDefaultValue As String) As String
    
    pfunFindValueOfString = ""
    
    On Error Resume Next
        With Workbooks(pstrClientWB).Worksheets(pstrCurrentWorksheet).Range("a1:z300")
                pfunFindValueOfString = .Find(What:=strStringToFind, After:=.Cells(1, 1), _
                            LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, MatchCase:=False).Offset(intOffsetRows, intOffsetCols)
        End With
    On Error GoTo 0
        
    If pfunFindValueOfString = "" Then
        pfunFindValueOfString = strDefaultValue
    End If
    
End Function

Hope this helps,
Gary