Sub FormatGroup() Dim shSheets As Sheets Dim myWorksheet As Worksheet Set shSheets = Worksheets(Array(1, 2)) For Each myWorksheet In shSheets myWorksheet.Range("A1").Value = 100 myWorksheet.Range("A1").Font.Bold = True Next myWorksheet End Sub