Tak je to přesně to co sem potřeboval, bohužel se mi nedaří zapracovat tento kód do zdrojového souboru.
Dostal sem se do tohoto stádia
Dim ThisBook As Workbook, WkSht As Worksheet
Set ThisBook = ThisWorkbook
Application.ScreenUpdating = False
fName = "D:\záloha\" & Range("S7").Value
newFile = fName
ActiveWorkbook.SaveCopyAs Filename:=newFile & ".xls"
Application.Workbooks.Open (Application.DefaultFilePath & "\" & _
Left(ThisBook.Name, Len(ThisBook.Name) - 4) & _
" Copy.xls")
For Each WkSht In ActiveWorkbook.Worksheets
Select Case WkSht.Name
'***************************************
'Sheets to be excluded (rename as required)
Case "Odberatele"
'***************************************
Application.DisplayAlerts = False
WkSht.Delete
Case Else
'do nothing
End Select
Application.CutCopyMode = False
Next WkSht
ActiveWorkbook.Save
ActiveWorkbook.Close
dokázal sem přesměrovat ukládání souboru na disk D, ale to je všechno seknul sem se v tučně vyznačeném místě kódu a mevím si rady jak přepsat tuto část, tak aby makro dokázalo otevřít ten zálohovaný soubor na Déčku aby mohlo smazat list "odberatele"
Mohu tě ještě otravovat a poprosit tě o možnost úpravy
EDIT:
Tak sem na to nakonec přišel,ale dalo to zabrat. Stačilo nahradit
Application.Workbooks.Open (Application.DefaultFilePath & "\" & _
Left(ThisBook.Name, Len(ThisBook.Name) - 4) & _
" Copy.xls")
Tímto:
Application.Workbooks.Open (newFile & ".xls")
Hledám složitosti tam kde nejsou
Ještě jednou díky za ten odkaz, funguje to přesně podle představ