Gem hvert ark som serarate filer

Sub GemArkfaner()
    Application.ScreenUpdating = False
    Dim wkbNy As Workbook
    Dim wkbAktuel As Workbook
    Set wkbAktuel = ActiveWorkbook
    Dim wks As Worksheet
    For Each wks In wkbAktuel.Worksheets
        Set wkbNy = Workbooks.Add
        wks.Copy before:=wkbNy.Worksheets(1)
        wkbNy.SaveAs "C:\temp\" & wks.Name
        wkbNy.Close
        Set wkbNy = Nothing
    Next
    Application.ScreenUpdating = True
End Sub