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

Format sheets: make the font bold

   <source lang="vb">

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

</source>