Automation Error

[cme044]

Brief Summary: A userform is given and the user enters in values which are then put into an excel spreadsheet and a value is calculated. I want that final value (PressureDrop/PressureDropPa) to display in the userform.

The program works perfectly on one computer, but as soon as I open it on another computer I get the error: Run-time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from its clients.

Private Sub Clear_Click()
Unload Me
UserForm4.Show
End Sub

Private Sub CalculatePressure_Click()
Worksheets("Model-Metric").Range("L29") = TD1Row1.Value
Worksheets("Model-Metric").Range("L31") = HD1Row1.Value
Worksheets("Model-Metric").Range("L30") = VD1Row1.Value
Worksheets("Model-Metric").Range("M29") = TD2Row1.Value
Worksheets("Model-Metric").Range("M31") = HD2Row1.Value
Worksheets("Model-Metric").Range("M30") = VD2Row1.Value
Worksheets("Model-Metric").Range("M33") = DegBends2.Value
Worksheets("Model-Metric").Range("M34") = RofC2.Value
Worksheets("Model-Metric").Select
BendRadiusRatio_Change
PressureDropPa_Change
PressureDrop_Change
 
End Sub
 
 
Private Sub BendRadiusRatio_Change()
Dim Br As Integer
Br = RofC2 / (TD2Row1 / 1000)
If Br < 6 Then
Worksheets("Model-Metric").Range("M36") = -0.375 * Br + 2.25
Else
Worksheets("Model-Metric").Range("M36") = 0.5
End If

End Sub
 

Private Sub PressureDropPa_Change()
 
Dim PressureDMetric As Range
Set PressureDMetric = Range("G38")
PressureDropPa.Value = PressureDMetric
PressureDropPa.Value = Format(PressureDropPa, "fixed")

End Sub
 
 
Private Sub PressureDrop_Change()
 
Dim PDropMetric As Range
Set PDropMetric = Range("H38")
PressureDrop.Value = PDropMetric
PressureDrop.Value = Format(PressureDrop, "fixed")
 
End Sub

Any suggestions are greatly appreciated!

Thanks

Chels

 

[Ruddles]

Is there no indication as to which line of code it stopped at?

 

[cme044]

It stops at

Private Sub PressureDropPa_Change()

Though I changed

Set PressureDMetric = Range("G38") 'to

Set PressureDMetric = Cells(38, 8)

and now it works...

 

[Ruddles]

Column G is column 7.