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