Do you mean that you want this to clear B1 & C1 on multiple sheets?
Code:
Option Explicit
'---------------------------------------------------------------------------------------
' Procedure : Workbook_SheetChange
' Author : Roy Cox (royUK)
' Website : www.Excel -it.com
' Date : 27/04/2013
' Purpose : If A1 is cleared, B1 & C1 are also cleared
'---------------------------------------------------------------------------------------
'
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Len(Target) = 0 Then
Target.Offset(, 1).ClearContents
Target.Offset(, 2).ClearContents
End If
End Sub
Workbook Event code should be added to the workbook code module:
Copy the Excel VBA code that you want to use
Select the workbook in which you want to store the code
Hold the Alt key, and press the F11 key, to open the Visual Basic Editor
In the Project Explorer, find your workbook, and open the list of Microsoft Excel Objects
Right-click on the ThisWorkbook object, and choose View Code
Where the cursor is flashing, choose Edit | Paste
Bookmarks