Macro search only 1 column of sheet

[ste33uka]

Hi could would anyone have a macro that would bring up and search box
to search for a word in column "s" of a sheet called "data" ?
I have the following code below if someone could adjust it to just search the 1 sheet and 1 column
Thanks

Sub word()

    Dim srchVal As Variant
    Dim ws As Worksheet
    
'   Specify what to search for (hard-code or range reference)
    srchVal = InputBox("What value do you want to look for?")
    
'   Loop through all sheets and check cell c1 for search value
    For Each ws In Worksheets
        If Format(ws.Range("c1")) = Format(srchVal) Then
            ws.Activate
            MsgBox srchVal & " found on sheet " & ws.Name
        End If
    Next ws
    
End Sub

 

[dmt32]

problem maybe is that i might not be on the current sheet i want to search,
Would like to search the column on sheet, if i am on a different sheet

solution allows you do that but to select the found cell you will need to activate the sheet

Add the line of code shown in BOLD just above the FoundCell.Select statement

      ws.Activate
        FoundCell.Select

Dave

 

[ste33uka]

Thanks for everyones help with this
job done

 

[dmt32]

Thanks for everyones help with this
job done

you are welcome glad we were able to help

Appreciate the feedback

Dave