Well the only thing I could do to fix the issue was add some delay to the script and change how the screen updated,

Here is what I came up with to fix the issue. Just odd it only happends on one pc.

Anyway thanks everyone for your input...

Mike

Sub Pallets()
Dim x As Integer, dNumber As Integer
dNumber = Application.InputBox(Prompt:="Enter Total Pallets", Title:="Total Pallets ?", Type:=1)
If dNumber <> False Then
Range("F37").Value = dNumber
Calculate
For x = 1 To dNumber
Application.ScreenUpdating = False
Range("A37").Value = x
ActiveSheet.PrintOut
Application.Wait DateAdd("s", 3, Now)
Next x
End If
Application.ScreenUpdating = True

End Sub