miconian
10-07-2004, 06:08 PM
In relation to this thread on mrexcel:
http://www.mrexcel.com/board2/viewtopic.php?t=109022&start=20
I am getting this error:
Run-time error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.
The code that always (apparently) causes the error is this specific stanza:
Case "ABC"
With Selection.validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ABC_ blah, ABC_ bleh bleh bleh blah, ABC_ hmm hmm, ABC_ ack, ABC_ ugh, ABC_ ich ick ack, heck_ huck, ann_24 snimmen snop, him_Hum Heck, Harl_Hill Hup, Ipsum_Lorum, cat_fish, cat_fish bicycle, woe_is Me, who_Knows Jack, JIm_Bob JOhn, Bim_Bam Boom, Bada_Bing's Thing, doo_wah Ditty, apple_Pear Square, Line_dot Spot, Upsy_Daisy Mazey Crazy, Where_Is_Waldo?"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
The nonsense is substituted for confidential data, but all the punctuation therein is real.
Any ideas?
Excel is the only office application I have open, and my code is not meant to interact with any others (if that makes a difference in terms of this type of error).
Thanks...
http://www.mrexcel.com/board2/viewtopic.php?t=109022&start=20
I am getting this error:
Run-time error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.
The code that always (apparently) causes the error is this specific stanza:
Case "ABC"
With Selection.validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ABC_ blah, ABC_ bleh bleh bleh blah, ABC_ hmm hmm, ABC_ ack, ABC_ ugh, ABC_ ich ick ack, heck_ huck, ann_24 snimmen snop, him_Hum Heck, Harl_Hill Hup, Ipsum_Lorum, cat_fish, cat_fish bicycle, woe_is Me, who_Knows Jack, JIm_Bob JOhn, Bim_Bam Boom, Bada_Bing's Thing, doo_wah Ditty, apple_Pear Square, Line_dot Spot, Upsy_Daisy Mazey Crazy, Where_Is_Waldo?"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
The nonsense is substituted for confidential data, but all the punctuation therein is real.
Any ideas?
Excel is the only office application I have open, and my code is not meant to interact with any others (if that makes a difference in terms of this type of error).
Thanks...