Sub デスクトップへファイル名へ完了挿入して別ファイルで出力する()
    
    ログイン名 = CreateObject("WScript.Network").UserName
    
    デスクトップパス = "C:\Users\" & ログイン名 & "\Desktop\"
    
    ActiveWorkbook.SaveAs デスクトップパス & "【完了】" & ThisWorkbook.Name

End Sub