vba select a cell that contains certain text

[gtd526]

Hello,
I'm using the following VBA code to identify "?" in a certain cell, which is working.
I'd rather just select that identified cell (containing "?") rather that add the text to Column "D".
There will only be a single cell containing "?".
thank you

Sub Test()
   
    Dim i As Integer

    For i = 1 To 10
        If InStr(1, LCase(Range("B" & i)), "?") <> 0 Then
        Result = "Contains ?????"
        Else
        Result = "Does Not Contain ?????"
        End If

    Range("D" & i) = Result
    Next i
    
End Sub

NBA.xlsm
	A	B	C	D
1	Rank	Criteria2	Criteria2 Percentage	Does Not Contain ?????
2	1	Rank2, AL & AM >60%	75.7%	Does Not Contain ?????
3	15	Q>=60%, S>=6	54.3%	Does Not Contain ?????
4	37	K,L,Q,R>0,X,AC	36.6%	Does Not Contain ?????
5	#VALUE!	??????????????????		Contains ?????
6	#VALUE!	Your Choice		Does Not Contain ?????
7	#VALUE!	Your Choice		Does Not Contain ?????
8				Does Not Contain ?????
9				Does Not Contain ?????
10				Does Not Contain ?????
Sheet1

 

[abdelfattah]

Hi
I'm not sure if this is what you want.
just try it

Sub Test()
   
    Dim i As Integer

    For i = 1 To 10
        If InStr(1, LCase(Range("B" & i)), "?") <> 0 Then
        Range("B" & i).Activate
        End If
    Next i
End Sub

 

[jolivanes]

Or just use a tilde to make a wildcard character a regular character.

Sub Maybe()
    Sheets("Sheet1").Columns(2).Find("~?").Select
End Sub

 

[gtd526]

Hi
I'm not sure if this is what you want.
just try it

Sub Test()
  
    Dim i As Integer

    For i = 1 To 10
        If InStr(1, LCase(Range("B" & i)), "?") <> 0 Then
        Range("B" & i).Activate
        End If
    Next i
End Sub

Yes, works fine.
Thank you.

 

[gtd526]

Or just use a tilde to make a wildcard character a regular character.

Sub Maybe()
    Sheets("Sheet1").Columns(2).Find("~?").Select
End Sub

Works. Thank you.