Thank you for the quick response. Now the error that pops up is "Run-time 438" "Object doesn't supportthis property or method". This is an existing .xlsb workbook. Here is what i am now using:
Code:
Private Sub RCSC Tab_Click()
lblWait.Visible = True
DoCmd.Hourglass True
Dim xlApp As Excel.Application, xlWB As Excel.Workbook, MyProfile As String
Set xlApp = CreateObject("Excel.application", "")
MyProfile = Environ("UserProfile") & "\Desktop\RCSC_Review\RCSC Review"
Set xlWB = xlApp.Workbooks.Open(MyProfile)
With xlWB.Sheets("RCSC_Review").ClearContents
xlWB.Close savechanges:=True
xlApp.Quit
End With
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "RCSC Review", _
MyProfile, True, "RCSC Review"
lblWait.Visible = False
DoCmd.Hourglass False
End Sub