Firstly place a button on the spreadsheet from the control toolbox toolbar.

Then double click the button to go into the VBE and enter the following code
in between Sub commandbutton1 () and End Sub

Dim search, count, val1, val2

val1=Worksheets("Sheet1").Range("E1").Value
count=0

While Search="ON"
val1=Worksheets("Sheet1").Range("A1").Offset(count,0).Value
If val1=val2 Then
'Put what you want to do here once it has found the value in the column
MsgBox "Found value in A:" and count
Search="OFF"
Else
count=count+1
If count=1000 then
MsgBox "Search did not find value in cells A1 to A1000"
Exit Sub
End If
End If

That should work nicely to find the value, but it would help if I knew what
you wanted to do once its found the value.

"Durzan" wrote:

>
> I was wondering how to create a search function that would search column
> A for whatever was put in E1. I am completely new to this sort of thing.
> Sorry
>
>
> --
> Durzan
> ------------------------------------------------------------------------
> Durzan's Profile: http://www.excelforum.com/member.php...o&userid=37447
> View this thread: http://www.excelforum.com/showthread...hreadid=571126
>
>