Find string and offset copy

Hi hi,

I am writing a macro to do many things but one task is to find the zip code on a sheet written zip in column a and the actual 5 digit code in column b. Then copy the # and paste it on another sheet in a specific cell.

Unfortunately the below code does not work. What is wrong with my find statement?

Thanks,
~RUTH~

Sub test()

    Sheets("data").Select 'Get data from data sheet
    Cells.Find ("zip")  'Find zip code data
    ActiveCell.Offset(0, 1).Copy    'Copy zip code next to label zip cell
    Sheets("Tool").Select 'Paste to Tool sheet
    Range("D10").Select  'Select cell to paste to building description area
    ActiveSheet.Paste   'Paste building zip

End Sub

Try this:

Sub test()
'Get zip from Data sheet & Copy
    Sheets("data").Cells.Find("zip").Offset(0, 1).Copy
'Paste to Tool sheet
    Sheets("Tool").Range("D10").PasteSpecial
    Application.CutCopyMode = False
End Sub

Thanks for both your responses! VBA noob your simple 1 liner worked perfectly. I always record my macros and excel uses so many steps. It is nice to see real programing. Thanks again!

~RUTH~

What if instead of the value to be the same you wanted it to ref the other cell like =A1 not the value of A1.

~RUTH~

Try this, untested:

Sheets("Tool").Range("D10").Formula = "=" & Sheets("data").Cells.Find("zip").Offset(0, 1).Address