Find string and offset copy

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

No that didn't do it. Instead it gave me an =$B$8 as text and also that ref that sheet not the sheet it came from. So even if it wasn't text the formula is wrong.

~RUTH~