Run-time error 438
 

Can someone tell me why this line has all of a sudden started produceing this
error, first tests worked fine, then the error at the bottom of this post
started.

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Sheets("TIMESHEET").CMDBTN.Visible = fs.FileExists("C:\Program
Files\Hummingbird\DM Extensions\Interceptor.exe")

Run-time error 438
object doesn't support this property or method

Run-time error 438
 

To make your life worse...

Your code worked ok for me in xl2002.

You may want to try it in a new workbook/worksheet and see if it works there.

Then maybe you can compare the surrounding code to see if there's a problem.

===
Any chance you renamed the CMDBTN to something else--or even deleted it??

VBA-Beginner wrote:

Can someone tell me why this line has all of a sudden started produceing this
error, first tests worked fine, then the error at the bottom of this post
started.

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
Sheets("TIMESHEET").CMDBTN.Visible = fs.FileExists("C:\Program
Files\Hummingbird\DM Extensions\Interceptor.exe")

Run-time error 438
object doesn't support this property or method

--

Dave Peterson