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