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>