Runtime error 1004

H

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 Auto_Open()
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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads


Top