Excel VisualBasic Script

Sub ReferAcrossWorksheets3()
  Range(Sheets("Sheet1").Cells(1, 1), Sheets("Sheet1").Cells(10, 5)).Font.Bold = True
End Sub