Makro pro uložení listu do zvláštního sešitu

Další užitečný kousek makra. Tentokrát vezme předem daný list a uloží ho jako zvláštní soubor do předdefinovaného místa.

Sub SaveSheet()
    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs "C:\Users\JB\Desktop\novy.xlsx"
End Sub