Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automation Error
I'm getting an automation error "The object invoked has disconnected from its
clients" Whenever I try to run a piece of code that is supposed to change the validation on a range of cells; Here is the code: Sub ValidatePCPW() Prot.UnlockDDSheet With Sheets("New Deal Data").Range("B158:N173").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=$CD$158:$CD$172" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "Invalid Selection" .InputMessage = "" .ErrorMessage = _ "Please make your selection from the drop down box provided." .ShowInput = True .ShowError = True End With Any help with solving this problem would be greatly appreciated. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Automation Error
Hi
I had the same problem some time back but can't remember exactly what I did. You may be able to solve it by: 1) Activating the sheet beforehand 2) Making sure that the cell is not in a hidden row or column Hope these help "Kurt Barr" wrote: I'm getting an automation error "The object invoked has disconnected from its clients" Whenever I try to run a piece of code that is supposed to change the validation on a range of cells; Here is the code: Sub ValidatePCPW() Prot.UnlockDDSheet With Sheets("New Deal Data").Range("B158:N173").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="=$CD$158:$CD$172" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "Invalid Selection" .InputMessage = "" .ErrorMessage = _ "Please make your selection from the drop down box provided." .ShowInput = True .ShowError = True End With Any help with solving this problem would be greatly appreciated. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Compile error automation error | Excel Programming | |||
compile error automation error | Excel Programming | |||
RunTime Error (Automation Error) | Excel Programming | |||
Automation Error, Unknown Error. Error value - 440 | Excel Programming | |||
Unknown where is the problem on the Runtime error - Automation error | Excel Programming |