The object invoked has disconnected from it's clients

[dan_l]

Strange error. I've never seen it before. Anybody have thoughts?


Sub PriorityValidation()

Sheets("OpenTicketList").Range("P1").Value = "Is Priority?"

lst_tix = "Priority,Standard"


With Sheets("OpenList").Range("P21000").Validation

.Delete

.Add Type:=xlValidateList, _

AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:=lst_tix

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.ShowInput = True

.ShowError = True


End With


End Sub

 

[vijaySharma]

Dan,


I am not getting this error with the above code... is this the only piece of code or there is something else as well.


~Vijay

 

[vijaySharma]

Dab,


Refer to the MS article on this...


http://support.microsoft.com/default.aspx?scid=kb;en-us;Q319832


Also use Option Explicit and do a full compile of the VBA project. It will advise you of any missing delcarations / dependencies.


~Vijay

 

[dan_l]

Interesting. It works fine in 07. It throws that error in 03. It does not throw that error in 07. Quirky.


Option explicit goes at the top of the module? Or at the beginning of the sub?


And yes: there's a bunch of stuff going on. There's a button that:


1. Refreshes a query

2. Moves the query results to another sheet that has more viewable formatted sheet.

3. DV is applied to the last column to let a flag certain entries.


A subsequent button moves those flags back into the query sheet. Pivot tables are based on that raw data, and huzzzzah pivot table reports.