Msg Box based on part string

[JSAUS]

Hi,
I need to search column B for any cell (there will be multiple) that contains 'subtotal' in the string of text (there will be 'Subtotal - Section 1', 'Subtotal - Section 2' etc). Then a message box to pop up asking for the Rev Code1 for that subtotal section and for the Rev Code1 the user inputs to be written to the cell offset (0,2) and then another box to write a Rev Code2 into (0,3).

 

[Scott T]

Maybe something like this

Sub findsubtot()

Dim lr As Long
lr = Cells(Rows.Count, 2).End(xlUp).Row

For x = 1 To lr
    If InStr(UCase(Cells(x, 2)), "SUBTOTAL") <> 0 Then
    in1 = InputBox("enter rev code 1 for " & Cells(x, 2).Text)
    Cells(x, 4) = in1
    in1 = InputBox("enter rev code 2 for " & Cells(x, 2).Text)
    Cells(x, 5) = in1
    
    End If

Next x

End Sub

 

[JSAUS]

Thank you so much! This is works perfectly!

 

[JSAUS]

Would there be a way to instead allow the user to select the code from a drop down box?