save active sheet as

[stefano]

Ik probeer van een bestand met verschillende tabbladen één tabblad weg te schrijven onder een andere naam. Ik gebruik onderstaande code, maar het loopt fout. Is de code die ik gebruik correct ( rode gedeelte ? )?

Sub opslaan()
    Sheets("historiek totaal").Visible = True
    Sheets("historiek totaal").Select
    Run "hist_kopieren"
    Sheets("historiek totaal").Select
    ActiveWindow.SelectedSheets.Visible = False

    Sheets("mail").Visible = True
    Sheets("mail").Select
    Dim naam As String
    Dim pad As String
    naam = "bloemstocks " & Format$(Range("o1"), "yyyymmdd") & ".xls"
    pad = ActiveSheet.Range("al5").Value
    ThisWorkbook.Save
  [COLOR="Red"]  ThisWorkbook.ActiveSheet.SaveCopyAs Filename:=pad & naam[/COLOR]
    Sheets("mail").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("vandaag").Select
      
        
End Sub

 

[QueenMan]

Geef eerst het commando sheets("<sheet name>").copy
daarna: ActiveWorkbook.SaveAs Filename:=dir & bestand, FileFormat:= file formaat (Waarbij dir of bestand wel een '\' bevat)
en daarn: ActiveWorkbook.Close