Run except IF

Hi,

How would I get my below code NOT to run if Macro "Add_FCST" runs?????

Dim vOldVal 'Must be at top of module



Private Sub Worksheet_Change(ByVal Target As Range)
Dim bBold As Boolean
If IsEmpty(vOldVal) Then vOldVal = "Empty Cell"
bBold = Target.HasFormula
With Sheet2
'.Cells(2, 1) = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), _
'"short date")
.Cells(4, 1) = "CELL CHANGED"
.Cells(65536, 1).End(xlUp)(2, 1) = Target.Address
.Cells(4, 2) = "OLD VALUE"
.Cells(65536, 2).End(xlUp)(2, 1) = vOldVal
With .Cells(4, 3)
.Value = "NEW VALUE"
.ClearComments
.AddComment.Text Text:= _
"Matt Kleinke:" & Chr(10) & "" & Chr(10) & _
"Bold values are the results of formulas"
End With
With .Cells(65536, 3).End(xlUp)(2, 1)
.Value = Target
.Font.Bold = bBold
End With
.Cells(4, 4) = "TIME OF CHANGE"
.Cells(65536, 4).End(xlUp)(2, 1) = Time
.Cells(4, 5) = "DATE OF CHANGE"
.Cells(65536, 5).End(xlUp)(2, 1) = Date
.Cells(4, 6) = "CHANGED BY"
.Cells(65536, 6).End(xlUp)(2, 1) = Application.UserName
.Cells(4, 7) = "ENTERED DP"
.Cells(65536, 7).End(xlUp)(2, 1) = "No"
.Cells.Columns.AutoFit
End With










vOldVal = vbNullString
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
vOldVal = Target
End Sub

Thanks,
Matt

Matt

In the macro turn off events at the start of the code.

Please Login or Register  to view this content.

Don't forget to turn them back on at the end of the code.

Please Login or Register  to view this content.