Sheets("All Weeks").Range("A3").Value = _
Sheets("Occ. Summary").Range("I7").Value
Sheets("All Weeks").Range("A3").NumberFormat = _
Sheets("Occ. Summary").Range("I7").NumberFormat

--
Regards,
Tom Ogilvy


"DJA" wrote in message
oups.com...
Thanks for the tips, guys. I think I'm on the right track. One more
question though, is there a way to paste the number formats in Excel
2000? I have some cells in percentage and currency formats, and I'd
like paste those to the second sheet, but I don't want to paste the
cell formats, i.e. font size, bold etc.

Thanks,

Dave