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
Bookmarks