Nekaj ne štima!?!

Zdravo!

Imam majhen problem napisal sem ta majhen makro


Sub Shrani()
Dim Datum As String
Dim ImeDatoteke As String

Datum = CStr(Date)
Datum = Replace(Datum, ".", "-") & "."

ImeDatoteke = Application.GetSaveAsFilename("", FileFilter:="Excelove datoteke (*.xls), *.xls")

If ImeDatoteke Not "False" Then
'shranim
ImeDatoteke = Replace(ImeDatoteke, ".", "-" & Datum)
ActiveWorkbook.SaveAs ImeDatoteke
MsgBox ImeDatoteke
End If
End Sub


in fajn dela... Pač shrani datoteko kateri na koncu imen še doda datum.
Problem se pojavi ko datoteka že obstaja! Takrat ko kliknem v SvaeAs dialogu na gumb Save, me seveda vpraša ali naj prepiše obstoječo datoteko, v primeru ko tega ne želim kliknem na gumb ne in mi javi napako!!! In sicer Run-time error 1004! Ma keri kao idejo zakaj in kako naj kodo optimiziram, da ne bo vsebovala tega hrošča?

lp