I have the following simple macro:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Range("Conditions"), Target) Is Nothing Then
Call FormatConditions(Target)
End If
End Sub

Is it possible to write a macro that adds this to the code module of all
worksheets?


Darren