Copy/paste following code into a Module;
'--------------------------------------------------
Dim format As String
Sub CopyNumberFormat()
format = ActiveCell.NumberFormat
End Sub
Sub PasteNumberFormat()
ActiveCell.NumberFormat = format
End Sub
-------------------------------------------------
Then associate a keybard shortcut to each of thes macros
HTH
--
AP
"Maestro_J" <
[email protected]> a écrit dans le message de
news:
[email protected]...
> Hi,
>
> I want to copy number formats from one range of cells to another. I
> don't want other formattings like boarders or colours to be copied and
> I also don't want to copy values or formulas.
>
> Until now I found no possibility for that. Is there a similar function
> like
>
> Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats?
>
> Thanks for your help
>
Bookmarks