Excel VisualBasic Script

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