I am in the middle of writing a macro that runs on any change to a specific
cell containing a validation list.

I tested that it worked with each bit of extra code that I added, and it
worked fine for a while, but then it started to crash Excel and I cant find
out what caused it.

And even more peculiar, if I start writing from scratch, the event is no
longer triggered by changing the cell by the Validation list.

I have attached the offending code, in case there is something there that
has altered a setting within Excel that I am not aware of.
If I create a Change Event in a new workbook it works with the Validation
List, so cant be the fact that I have Excel 2002.

Thanks for any help that you can give

Kris

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Target.Address = Range("PF_ContractType").Address Then
   Select Case Target.Value
       Case "Fixed Price"
       'Multiplier Label Change
       With Range("PF_MultiplierLabel")
           .Value = "Labour Revenue Multiplier on Bare"
           .Font.Bold = True
           .Font.ColorIndex = 0
           .Font.Italic = False
       End With
       'Remove Equivalent Multiplier Formula
       With Range("PF_Multiplier")
           .Value = Null
           .Locked = False
       End With

       Case "Time Charge"
       'Multiplier Label Change
       With Range("PF_MultiplierLabel")
           .Value = "Equivalent Labour Revenue Multiplier on Bare"
           .Font.Bold = False
           .Font.ColorIndex = 48
           .Font.Italic = True
       End With
       'Add In Equivalent Multiplier Formula
       With Range("PF_Multiplier")
           .Formula =
"=IF(SUM(PF_BareLabour,(PF_ContractLabour/PF_BurdenMultiplier))=0,,PF_TotalLabour_Rev/SUM(PF_BareLabour,(PF_ContractLabour/PF_BurdenMultiplier)))"
           .Locked = True
       End With
       Case Else
       'Nothing
   End Select
End If
Application.EnableEvents = True
End Sub