slottieboom
Gebruiker
- Lid geworden
- 3 okt 2012
- Berichten
- 33
Ik heb het volgende ik wil een sheet kopieeren naar een adere werkmap welke een variabele naam kan hebben.
Hoe kan ik de naam van het tweede werkboek definieeren de code is nu als volgt:
Hoe kan ik de naam van het tweede werkboek definieeren de code is nu als volgt:
Code:
Sub Macro1()
Dim wbnaam As Variant
Dim wbmpd As Variant
wbnaam = ActiveWorkbook.Name
wbmpd = [COLOR="#FF0000"]HOE KAN IK DEZE DEFINIEREN?[/COLOR]
With Application.FileDialog(msoFileDialogOpen)
.Title = "MPD bestand selecteren"
.Filters.Clear
.Filters.Add "Excel macros", "*.xlsm"
.Show
.Execute
End With
'
'activeert de werkmap waar de sheet geopieerd moet worden
Workbooks(wbnaam).Activate
End Sub