Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Format sheets

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