Macro to Find column number of a certain value

[jmh1]

How can i find the column number that a certain value is in using vba code?

 

[Fat Cat]

Here's an example that runs from a CommandButton, but you can use the code in any other macro.

Private Sub CommandButton1_Click()

Dim Lost As Variant
Lost = 24789                                'set Lost to whatever you want to look for

With Sheets(1).Range("A1:E65536")           'set the range you want to look through
    Set c = .Find(Lost, LookIn:=xlValues)
End With
                                            'the variable c is an address, so you can use c.Row and c.Column to get the row and column numbers
MsgBox ("Your data " & Lost & " was found in column " & c.Column)

End Sub