Runtime error 1004

[HHHH]

Hi,

I keep got a runtime error 1004

and the debug log into the macro below can anybody helpme.

Many thanks in advance



Sub Autpen()
TrapEntry
End Sub


Sub TrapEntry()
Worksheets("CONVEYOR").OnEntry = "Deceleration"
End Sub

{High light area}
Sub Deceleration()
Sheets("Calculations").Range("D10").GoalSeek Goal:=0,
ChangingCell:=Sheets _
("Calculations").Range("D5")
End Sub


Sub RunSag()
Worksheets("CONVEYOR").Activate
Set SagTestRange = Range("BO51")
For Each CELL In SagTestRange.Cells
If Not (CELL.Value = False) Then
MsgBox "BELT SAG EXCEEDS ALLOWABLE LIMITS.", vbExclamation, "PROBLEM"
End If
Next
End Sub