save as "variabele naam"

[sickofitall]

hoi

ik heb een macro en die zou een bestand aanmaken en opslaan. Nu zou de bestandsnaam gelijk moeten zijn aan een combinatie van 2 variabelen, namelijk actiecode (ac) en postcode (pc).

Dit is wat ik zelf heb kunnen doen

 Sheets("lijst").Select
    ac = Cells(lrij, 7).Value
    pc = Cells(lrij, 3).Value
    
    Columns("I:Q").Select
    Selection.Copy
    Workbooks.Add
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Rows("1:1").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    ChDir "C:\Documents and Settings\username\Bureau"
    ActiveWorkbook.SaveAs Filename:= _
     [b]   "C:\Documents and Settings\username\Bureau\" & ac & pc ".xls", [/b]FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWindow.Close
End Sub

bij het stuk in het bold geeft hij een foutmelding. Iemand een idee hoe ik dit moet corrigeren?

dank!

 

[leofact]

in ieder geval dit

"C:\Documents and Settings\username\Bureau\" & ac & pc & ".xls", FileFormat

mvg leo

 

[sickofitall]

in ieder geval dit

"C:\Documents and Settings\username\Bureau\" & ac & pc & ".xls", FileFormat

mvg leo

aha ofcourz, stupid me

hartelijk bedankt!!

 

[leofact]

Het zijn soms de kleine dingen die het doen.

 

[snb]

Je kunt nog meer wieden:

  With Workbooks.Add
     Sheets("lijst").Columns("I:Q").copy .columns(1)
     .Rows(1).Delete
     .SaveAs "C:\Documents and Settings\username\Bureau\" & sheets("lijst").cells(lrij,7) & sheets("lijst").cells(lrij,3) & ".xls"
    .close
   end with