Hi, I am getting an error at the red line in my code. The error is "Object doesn't support this property or method" with Run-time error 438. The application opens but when i try to make it visible i am getting this error. Sub chks() Dim objShell As Object Set objShell = CreateObject("WScript.Shell") objShell.Run "C:\infocn32\accmgr32\ACCMGR32.EXE C:\infocn32\accmgr32\IHAN-1.adp" With objShell .Visible = True End With End Sub Any help.. Thanks -Abi

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

Object Run time error 438

Thread starter abi_learn_vba
Start date Jun 23, 2011

abi_learn_vba

Board Regular

Jun 23, 2011

Hi,

I am getting an error at the red line in my code. The error is "Object doesn't support this property or method" with Run-time error 438. The application opens but when i try to make it visible i am getting this error.

Code:

Sub chks()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Run "C:\infocn32\accmgr32\ACCMGR32.EXE C:\infocn32\accmgr32\IHAN-1.adp"
With objShell
[COLOR="Red"].Visible = True
[/COLOR]End With
End Sub

Any help..

Thanks
-Abi