2147417848 Error

One games Xbox 360 games PC

Time Error 2147417848

games Windows games Windows phone games Entertainment All error 2147417848 automation error Entertainment Movies & TV Music Business & Education Business Students & vb6 error 2147417848 educators Developers Sale Sale Find a store Gift cards Products Software & services Windows Office Free downloads & security

2147417848 The Object Invoked Has Disconnected From Its Clients

Internet Explorer Microsoft Edge Skype OneNote OneDrive Microsoft Health MSN Bing Microsoft Groove Microsoft Movies & TV Devices & Xbox All Microsoft devices Microsoft Surface All Windows PCs & tablets PC accessories Xbox & games Microsoft Band Microsoft

Error 80010108

Lumia All Windows phones Microsoft HoloLens For business Cloud Platform Microsoft Azure Microsoft Dynamics Windows for business Office for business Skype for business Surface for business Enterprise solutions Small business solutions Find a solutions provider Volume Licensing For developers & IT pros Develop Windows apps Microsoft Azure MSDN TechNet Visual Studio For students & educators Office for students OneNote in classroom Shop PCs & tablets perfect for students Microsoft in Education Support Sign in Cart Cart Javascript is disabled Please enable javascript and refresh the page Cookies are disabled Please enable cookies and refresh the page CV: {{ getCv() }} English (United States)‎ Terms of use Privacy & cookies Trademarks © 2016 Microsoft

VBA Code & Other Help Excel Help Solved: Run-time error '-2147417848 (80010108)' If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: error 2147417848 excel click the register link above to proceed. To start viewing messages, select the

Run Time Error 2147417848

forum that you want to visit from the selection below. Results 1 to 10 of 10 Thread: Solved: Run-time error '-2147417848 error 2147417848 en tiempo de ejecucion (80010108)' Thread Tools Show Printable Version Subscribe to this Thread… Display Linear Mode Switch to Hybrid Mode Switch to Threaded Mode 08-31-2009,05:03 PM #1 nst1107 View Profile View Forum Posts View Blog Entries View https://support.microsoft.com/en-us/kb/849179 Articles VBAX Tutor Joined Nov 2008 Location Monticello Posts 245 Location Solved: Run-time error '-2147417848 (80010108)' I'm running the following sub and getting the 'Automation error The object invoked has disconnected from its clients.' error at the bolded line. I've looked around, but don't see any help for this specific problem. Any help is appreciated. Option Explicit Sub ShowMenu(ButtonName As String, ButtonLeft As Single, ButtonTop As Single, ButtonHeight As http://www.vbaexpress.com/forum/showthread.php?28257-Solved-Run-time-error-2147417848-(80010108) Single) Dim img As MSForms.Image, lbl As MSForms.Label, frm As MSForms.Control Dim fMenu As MSForms.Frame Dim fillRange As Range Dim L As Long Dim maxWidth As Single Set fMenu = UserForm1.Menu Set fillRange = Sheet1.Rows(2).Find(ButtonName).Offset(2) If fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row = 3 Then L = 4 Else L = fillRange.Offset(Rows.Count - 4, 1).End(xlUp).Row End If Set fillRange = fillRange.Resize(L - 3, 3) With fMenu .Left = ButtonLeft .Top = ButtonTop + ButtonHeight 'Add menu items. For L = 1 To fillRange.Rows.Count [B]Set frm = .Controls.Add("Forms.Frame.1", ButtonName & fillRange.Cells(L, 2))[/B] With frm .Caption = vbNullString .SpecialEffect = fmSpecialEffectFlat .Left = 0 .Top = L * 18 - 18 .Height = 18 Set img = .Controls.Add("Forms.Image.1", frm.Name & "Image") With img .Left = 0 .Width = 18 .Top = 0 .Height = 18 .BackColor = &H80000000 .BorderStyle = fmBorderStyleNone .Picture = LoadPicture(fillRange.Cells(L, 1)) End With Set lbl = .Controls.Add("Forms.Label.1", frm.Name & "Label") With lbl .Left = 24 .WordWrap = False .Caption = fillRange.Cells(L, 2) .AutoSize = True If .Width > maxWidth Then maxWidth = .Width .Top = 3 .Height = 12 .Accelerator = fillRange.Cells(L, 3) End With End With Next 'Resize. .Width = maxWidth + 3 For Each frm In .Controls If TypeOf frm Is MSForms

here for a quick overview of the site Help Center Detailed answers to any questions you might have Meta Discuss the workings and policies of this site About Us http://stackoverflow.com/questions/36683612/why-do-i-get-run-time-error-2147417848-80010108-in-excel-2013-most-of-the-tim Learn more about Stack Overflow the company Business Learn more about hiring developers or posting ads with us Stack Overflow Questions Jobs Documentation Tags Users Badges Ask Question x Dismiss Join the Stack Overflow Community Stack Overflow is a community of 4.7 million programmers, just like you, helping each other. Join them; it only takes a minute: Sign up Why do I get run-time error -2147417848 error 2147417848 (80010108) in excel 2013 most of the time I run UserForm? up vote 2 down vote favorite Task: I work in Excel2013. I tried to write in VBA a userform to add parameters into dynamic named ranges. All named ranges are held in one sheet and were created using insert>table. I select the range, show existing values and get the new value. All went well untill I time error 2147417848 actually got to adding value to the range. Problem: Excel shuts down most of the time when I try to run the UserForm. Saying: "Run-time error '-2147417848 (80010108)' Method X of object 'Range' failed" with different methods ('_Default' last time I checked) at different stages of me breaking code down. Symtoms: After this line as I found I get the error: Cells(y, x) = v where y and x are integers and v a string I get from the userform. During the debug I checked all values are defined and have values. Moreover, Immediate window with the same numbers input manually (not as variables), works! It mostly doesn't work, though it did follow through doing the job. If somone could tell the reason why it breaks it would be greatly appreciated! Some of the captions and potential values are in Unicode in case it matters, though I tried putting it all in English as well. Private Sub UserForm_Initialize() ' Preparing all controls of UserForm Sheet2.Activate Me.LB_parameter.SetFocus Me.LB_parameter.value = "" Me.LB_elements.RowSource = "" Me.L_element.Enabled = False Me.TB_element.Enabled = False Me.TB_element.Locked = True Me.Btn_Add.Enabled = False Me.Btn_Add.Locked = True End Sub Private Sub LB_parameter_DblClick(ByVal Cancel As MSForms.ReturnBoolean) ' Filling the