"Paul B" wrote in message
...
Katie, here is one way

Sub test()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ThisWorkbook.Worksheets
ws.Range("A1").FormulaR1C1 = "This Is A1"
ws.Range("A2").Interior.ColorIndex = 3
ws.PageSetup.PrintArea = "$A$1:$A$10"
Next ws
Application.ScreenUpdating = True
End Sub

What if I want to change the color to 'no fill' ?

Is there an associated number to use like Colorindex = 3 equals Red

No fill = ???????