copy data & format to mutiple sheets

R

rvik

hi

i have a format in a sheet. i want to copy the format to all the othe
sheets in the workbook. i want a macro for this.

yes, i could select all the sheets and paste...but the sheet names kee
varying daily....

thanks a lot in advanc
 
B

Bob Phillips

AS requested

Sub CopyFormats()
Dim sOriginal
Dim sh As Worksheet

sOriginal = ActiveSheet.Name
Cells.Copy
For Each sh In Worksheets
If sh.Name <> sOriginal Then
sh.Cells.PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End If
Next sh

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Top