Private Sub Workbook_NewSheet(ByVal Sh As Object) Cells.Select Range("B1").Activate Selection.Interior.ColorIndex = 4 End Sub Private Sub Workbook_Open() Cells.Select Range("B1").Activate Selection.Interior.ColorIndex = 4 End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Cells.Select Range("B1").Activate Selection.Interior.ColorIndex = 4 End Sub