Macro for saving in Desktop

[ellin00ra]

Hi there, everywhere!

I recorded a macro:

Sub Tallenna()
'
' Tallenna Makro
' ERIM0210 on nauhoittanut makron 23.11.2005.
'

'
    ChDir "C:\Documents and Settings\ERIM0210\Työpöytä"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\ERIM0210\Työpöytä\Kyselylomake.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub

But this should be changed so that when I e-mail the file, the macro saves the file in current user's desktop. Is it even possible?

Thanks, if anyone...

 

[MichaelRo]

Try this:

Sub Tallenna()

Dim StrUserName

StrUserName = Environ("UserName")

    ChDir "C:\Documents and Settings\" & StrUserName & "\Työpöytä"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\" & StrUserName & "\Työpöytä\Kyselylomake.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False

End Sub