******************************************************************************************************

  Excel (link a spreadsheet as if a table)

******************************************************************************************************

Public Sub LinkSpreadsheet()

'

' Purpose:      To link a spreadsheet into Access

' Arguments:    none

' Returns:      none

    ' This links the spreadsheet into Access as though it was a table

    DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel97, "WhiskySales", _

        "C:\BegVBA\WhiskySales.XLS"

End Sub