Bestandsnaam in macro VB Excel

[anton44]

Ik wil mijn macro optimaliseren die ik gebruik in Excel 2003.
De vraag is hoe ik de bestandsnaam daarin "Afrekening boekjaar 2008.xls" kan ophalen uit een cel van het tabblad "import" i.p.v. expliciete vermelding in de macro.


Sub Ophalen()
' Ophalen Macro
Application.ScreenUpdating = False 'Voorkomt flikkeren van het beeldscherm
BESTAND = Sheets("import").Range("G2").Value
Workbooks.OpenText Filename:=BESTAND, Origin:=xlMSDOS, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, Comma:=True _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array( _
16, 1)), DecimalSeparator:=".", ThousandsSeparator:=" ", _
TrailingMinusNumbers:=True
Columns("A:A").ColumnWidth = 14.71
Range("J1").Select
Selection.CurrentRegion.Select
Selection.Copy
Windows("Afrekening boekjaar 2008.xls").Activate
Sheets("import").Select
Rows("20:20").Select
ActiveSheet.Paste
Range("A20").Select
Sheets("import").Select
End Sub

 

[crash]

1x je vraag stellen is voldoende, ga in de volgende link maar verder:
http://www.helpmij.nl/forum/showthread.php?t=325760

Deze sluit ik.