Filedialog saveas

[jarsky]

Hallo,

ik heb het volgende probleem in Access 2010.
Ik heb vanuit een access dbase een Excel bestand gevuld met waardes.
Dit gaat allemaal uitstekend

Vervolgens wil ik het gevulde Excel bestand opslaan met de actie Filedialog (saveas) en daar gaat het mis. Ik krijg keurig het dialoog venster om op te slaan, ik klik op ok en dan krijg ik de melding dat "access is stop working" ik gebruik onderstaande code.
Ik zal vast wat fout doen maar ik kan er alleen geen vinger op leggen wat ik verkeerd doe.

Fout zelf gevonden en opgelost. (kleurtje gegeven)

Private Sub Knop7_Click()

Dim mysheet As Object, myfield As Variant, xlApp As Object, fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
Dim A As Variant
With fd

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems

A = vrtSelectedItem

Next vrtSelectedItem
Else
End If
End With

Set fd = Nothing

Set xlApp = CreateObject("Excel.Application")
Set mysheet = xlApp.workbooks.Open(A).sheets("Invulsheet")

mysheet.cells(1, 2).Value = Me.WBS
mysheet.cells(2, 2).Value = Me. Contractwaarde
mysheet.cells(3, 2).Value = me.Materiaal
mysheet.cells(4, 2).Value = Me.Subcontracting
mysheet.cells(7, 2).Value = me.Uren
mysheet.cells(8, 3).Value = Me.Uurloan

Set fd =mysheetApplication.FileDialog(msoFileDialogSaveAs)

With fd
.InitialFileName = Me.WBS
.Show
.Execute
End With

mysheet.Application.activeworkbook.Close
xlApp.Quit

' Clear the object variable.
Set mysheet = Nothing
Set fd = Nothing
End Sub