Copy format from another cell via macro

[roscoe]

I have a macro that I use to simplify data input. The key line is:

ActiveCell.Value = ActiveCell.Offset(-1, 0).Value

The cell it is copying from will be in a certain format. The copy line above only copies the value. How can I drag the formatting attributes with it?

I tried:

ActiveCell.Format = ActiveCell.Offset(-1, 0).Format but that apparently doesn't exist...Excel VBA help only works if you guess close, and that apparently aint it.

Ideas?

Thanks!

 

[biztekjim]

How about this? It might not be the best way, but it seems to work.

<font face=Courier New>ActiveCell.Copy
ActiveCell.Offset(-1, 0).PasteSpecial Paste:=xlFormats</FONT>

 

[roscoe]

Thanks...I'll try that. Right now I just hard coded the number format I am using into the cell, but I would rather be less rigid if I can help it.