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