Can someone tell me what is causing my open file code to fail with the error ' invalid object reference'

Private Sub Command1_Click()
Dim xl As Object

Set xl = CreateObject("Excel.Sheet")

xl.application.Visible = True
xl.application.open "c:\test.xls" 'valid file name
xl.Open "c:\temp.csv"


Set xl = Nothing
End Sub


Thank you