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