Tabbladen omzetten naar werkmappen

[Tarja8]

Hallo,

Ik heb weer eens een vraagje: ik heb 1 bestand met veel tabbladen. Nu wil ik van al die tabbladen aparte werkmappen maken en deze werkmappen wil ik dan ook nog de naam geven van de tabbladen. Weet iemand of dit kan? Ik zou hier enorm mee geholpen zijn, want dit handmatig doen is dit enorm veel werk!

Ik heb een bestandje bijgevoegd .

Alvast bedankt weer voor de hulp!

Groet,
TarjaBekijk bijlage Vraag tabbladen omzetten naar aparte werkbladen met de naam van het tabblad.xls

 

[HSV]

Kan wel even duren.

Sub hsv()
Dim sFullName As String, i As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 For i = 1 To Sheets.Count
      sFullName = "c:\users\hsv\documents\Mapje1"
   If Dir(sFullName, vbDirectory) = vbNullString Then MkDir sFullName
     Sheets(i).SaveAs sFullName & "\" & Sheets(i).Name & ".xls"
   Next i
 Application.DisplayAlerts = True
End Sub