VBA/Excel/Access/Word/Excel/Worksheet Format

Format sheets: make the font bold

 
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