Copy and Paste Number Formatting Only

[trickyricky]

I've got this to work for copying a single cell and pasting over a selection of cells:

Dim format As String

Sub CopyNumberFormat()
format = ActiveCell.NumberFormat
End Sub

Sub PasteNumberFormat()
Selection.NumberFormat = format
End Sub

Then I tried changing

format = ActiveCell.NumberFormat

to

format = Selection.NumberFormat

and got an error code.

Anybody know how to copy or store number formats over a selection?

I'm trying to just copy the number formatting from a row to new rows below it.
I don't need the values or colors and most the time there is data already in the rows below so I'd like to not have it messed with.