Need Help to solve Run time error 2147418105 (80010007)

[iitmking]

I just write a small macros for opening a new userform... when I'm running it firat time it is working fine... but second time it is showing the error..

Run time error 2147418105 (80010007)
Automation Error

The callee (server [not server application] is not available and
disappeared; all connections are invalid. The call may have executed.

Here is that macros...

-----------------------------------------------------------------------------------------------------
Option Explicit

Public filename3 As String
Private TSA As New TimeSeriesPlotting

Public Sub Button12_Click()
filename3 = InputBox("Please Enter the File Name", "FILE NAME", "ProductID_ProdBR_Batches")

If filename3 <> "" Then
TSA.Show
End If

End Sub
------------------------------------------------------------------------------------------------------
Every alternative time it is giving the error..
Request ppl help to solve this issue...

Thanks.. iitmking.

[Greg M]

Hi there,

Try using the following code to display your UserForm:

Please Login or Register  to view this content.

The CodeModule for your UserForm should also include code similar to the following:

Please Login or Register  to view this content.

The "Me.Hide" instruction should probably replaced by a call to whichever routine you're using to close the UseForm - note that this closing routine should HIDE (not Unload) the UserForm so that it still exists when control is returned to the calling ("Button12_Click") routine.


Hope this helps - please let me know how you get on.

Regards,

Greg M

[JOHN H. DAVIS]

Does this help?

https://support.microsoft.com/en-us/kb/187983

[iitmking]

Thanks Greg M..

Now it is showing run time error 13... type mismatch...

[Greg M]

Hi again,

Can you post a sample of your workbook here? A workbook which contains just the UserForm module might even be enough to determine exactly where the error is occurring.

Regards,

Greg M