Formatting problem...

[mjack003]

Hi,

I need to create a macro which will format F16-F500 as red text on al
selected sheets. Thanks in advance.

Regards,
Mjac

 

[Frank Kabel]

Hi Mjack
try
'-----
Public Sub format_cells()
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.Range("F16:F500").Font.ColorIndex = 3
Next wkSht
End Sub
'-----

Frank

 

[Bob Phillips]

For Each sh In ActiveWorkbook.Worksheets
sh.Range("F16:F500").Font.ColorIndex = 3
Next sh

--

HTH

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

 

[mjack003]

Thank you for the info

Regards,
Mjac