Proc mi toto makro nefunguje v Exelu 2013

[Snekment]

Dobrý den nize uvedene makro mi fungovalo v Exelu 2010 a pri prechodu na Exel 2013 nefunguje. Nevite kde by mohla byt chyba ?
Dekuji Kment

Sub Ulozeni_dokumentu()
Application.ScreenUpdating = False

jmeno = Range("C6")
ActiveWorkbook.SaveAs Filename:="\\192.168.2.248\zlutysanon_vaclavak\Zaměstnanci - seznam\" & jmeno
MsgBox " Prijimaci karta pracovnika " & jmeno & " byla uložena. Děkujeme "
Application.DisplayAlerts = False
Application.Quit
Application.ScreenUpdating = True

End Sub

[Reklama]