setting a custom format to a cell within a macro

[etpeterson]

I have a cell in one worksheet that I am copying to many different worksheets. I can copy the formula in the target cell, but it doen't show up correctly because the cell that is being copied has a custom date format. How do I copy the format from within the subroutine as well.

Eric

 

[Harvey]

take a look at pastespecial

 

[OHIOCOWBOY]

This should get you going in the right direction:
Range("a").copy
Range("x").PasteSpecial Paste:=xlFormats

 

[etpeterson]

Close. Very close.
Worksheets("Sheet1").Range("B10").Copy
ActiveSheet.Range("I24").PasteSpecial Paste:=xlFormats[/face]
Those are the lines I put it, but it gives me a complie error Expected:End of statement at [/face]. What do I have wrong with my syntax?

Thanks,
Eric

 

[OHIOCOWBOY]

Sorry
I included the formatting code on the end
If you get rid of the [/face] it will work