Public Sub Test()
Sheets("Sheet1").Range("A:A").Find
What:=Sheets("Sheet1").Range("C1").Value
End Sub

"choice" wrote:

in column A i have all unique values increasing in value (receipt numbers)
in C1 i have a vlookup value that will give a receipt number
i need to go to the cell in column A that is equal to C1

Thanks in Advance