Active Çalışma Kitabını Username İle Kaydetme

[askm]

Kolay gelsin.
Herhangi bir çalışma kitabının ismini username olarak değiştirmek istiyorum. Aşağıdaki şekilde yapmaya çalıştım ama hata veriyor.

Private Sub Workbook_Open()
Dim dosyam As String
Dim kullanici As String
Dim eski_ad As String

eski_ad = ThisWorkbook.FullName
uzanti = Right(eski_ad, InStr(1, StrReverse(eski_ad), ".", vbTextCompare))
kullanici = Application.UserName

If Dir(kullanici & uzanti) = "" Then
    If eski_ad <> kullanici & uzanti Then
        ActiveWorkbook.SaveAs Filename:=kullanici & uzanti
        Kill eski_ad
    End If
Else
    Kill kullanici & uzanti
End If

End Sub