エクセルでファイル保存のマクロを教えて下さい。

A列にはファイル名が入力してあります。
ファイル名はエクセルやワード、PDFなど多数の種類があります。
そのセルをクリックするとユーザーフォームがでて、その中の【保存】を押した後の処理についてお伺いしたいと思います。

保存を押すと、クリック先（アクティブセル）に書かれたファイルが保存できるようにしたいです。

名前をつけるダイアログが表示されますが、名前の欄にクリックしたファイル名も入力されていてほしいです。
そして保存できればいいと思っています。

まだマクロ初心者ですので、コードを教えて下さると勉強になります。

下記のコードはファイルを開くコードを書きました。
こんな風に簡単に書けるのでしょうか？

Private Sub 開く_Click()
Cancel = True
リンク先 = ActiveCell.Offset(0, 20).Value
　 フォルダー名 = "\\ファイル保管場所\"
CreateObject("Shell.Application").ShellExecute フォルダー名 & "\" & リンク先
　Unload Me
End Sub