Thanks for coming back

Code is:-
Function GetAccess()
'
' Macro1 Macro
' Macro recorded 26/03/2008 by Phil Stanton
'
   Dim MDBName As String, DefaultDirectory As String, SQLStg As String

   On Error GoTo GetAccess_Err

   Worksheets("Linked Data").Activate
   With ActiveSheet
       MDBName = .Range("A1")

CheckFile:
       If Dir(MDBName) = "" Then                  ' Not found
           MDBName = Application.GetOpenFileName("Access Database ,*.mde",
, "Where is the Club Database?")
           If MsgBox("Do you want to use this database in future?",
vbQuestion + vbYesNo) = vbYes Then
               .Range("A1") = MDBName
           End If
       End If
   End With

'
   ' Clear Cells

   ActiveSheet.Range("A2:H300").Clear

   SQLStg = "SELECT DISTINCT TypeOfSpace, Space, SpaceAndName, XPos, YPos,
XLabelPosition, YLabelPosition, LabelAngle "
   SQLStg = SQLStg & "FROM `" & MDBName & "`."         ' Note the ` symbol.
Significant

   DefaultDirectory = Left(MDBName, InStrRev(MDBName, "\"))

   'DBName = "C:\WFYC Data\Phil's Folder\Access\MDB\Clubs New 2007"
           '"ODBC;DSN=MS Access Database;DBQ=" & MDBName &
";DefaultDir=C:\WFYC Data\Phil's Folder\Acces"
   With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
       "ODBC;DSN=MS Access Database;DBQ=" & MDBName & ";DefaultDir=" &
DefaultDirectory _
       ), Array("s\MDB;DriverId=25;FIL=MS
Access;MaxBufferSize=2048;PageTimeout=5;")), _
       Destination:=Range("A2"))
       .CommandText = Array(SQLStg, "QSpaceAllocation QSpaceAllocation
ORDER BY TypeOfSpace, Space")
       .Name = "Query from MS Access Database"
       .FieldNames = True
       .RowNumbers = False
       .FillAdjacentFormulas = False
       .PreserveFormatting = True
       .RefreshOnFileOpen = False
       .BackgroundQuery = True
       .RefreshStyle = xlOverwriteCells
       .SavePassword = True
       .SaveData = True
       .AdjustColumnWidth = True
       .RefreshPeriod = 0
       .PreserveColumnInfo = True
       .Refresh BackgroundQuery:=True
   End With

   'Stop                ' Has it got here?

   Exit Function

GetAccess_Err:
Stop
   If Err = 1234 Then                            ' No Idea what the error
code will be
       ThisWorkbook.Close , False
   Else
       MsgBox Err.Description
   End If

End Function

There is a lot of other code, but this is the bit where the data is
"extracted" from Access.
As I said, no problem whether the Access DB is open or not, the problem
comes when I click the button on Access form to show the Excel file.
The "Linked Data" worksheet holds and processes the data, and the output is
11 labelled scatter charts, one on each page (Map of boat compound and where
each boat is stored)

Thanks again

Phil