Sheets(Array("Sheet2", "Sheet4", "Sheet5")).Select
With Range("A1")
.FormulaR1C1 = "This is a heading"
.Font.Bold = True
.Font.Underline = xlUnderlineStyleSingle
End With


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"KBV" wrote in message
...
For ex, if I record a macro that types a heading. Then I want that macro
to
repeat typing that heading in 4 sheets, how do I do that? ( I'm new to
macros)...

Thanks!