Savecopyas error

[leckie]

Problem with trying to save an excel worksheet

error message "object dos'nt support this property or method."

here is the code I'm using

Dim DB As Database
Dim rs As Recordset
Dim X As Object

Set DB = CurrentDb
Set rs = DB.OpenRecordset("tblSample&quot
Set X = CreateObject("excel.application&quot

X.workbooks.Add _
("C:\Sample\Sample.xlt&quot ' Template
X.sheets("timeplan&quot.Select ' selects sheet
X.activesheet.range("k1&quot.Activate
X.activecell.Offset(0, 0).Value = Me![clientname]
X.activecell.Offset(1, 0).Value = Me![clientid]
X.activesheet.range("a8&quot.Activate
Do While rs.EOF = False
X.activecell.Offset(0, 1).Value = Me![clientid]
X.activecell.Offset(0, 2).Value = rs![Temp Name]
X.activecell.Offset(1, 0).Select
rs.MoveNext
Loop
X.Application.Visible = True
rs.Close

'Save excel sheet
X.SaveCopyAs "C:\sample\SAMPLE.XLS"
X.Application.Quit
End If