名前を付けて保存の際、自動でファイル名を変数にする

### 前提

VBAで名前を付けて保存をする際、自動でファイル名が変数になるようなコードを作成してます。
前提として私はVBAに関しての知識がないため、ネットに記載のある情報をもとに作成しております。
作りたい機能はエクセルにボタンを作成し、そこに今回作成中のマクロを挿入に、保存作業の軽減に努めようとしております。

実現したいこと

・エクセルにボタンを作成し押下することで、自動でファイル名が変数(得意先名)となり保存できる
・フィルターで変数(得意先)の絞り込みを行っても、絞り込んだ変数(得意先)名で保存できる
・上記により保存作業の負担を軽減

発生している問題・エラーメッセージ

発生している問題：フィルターで絞り込んだ変数(得意先)名で保存したいが、ファイル名がフィルターを使用する前の変数(得意先)名になってしまう。
例)
フィルターなし：保存する際、自動で得意先A(変数)の名前で保存ができる。
フィルターで絞り込んだ状態：保存する際、自動で得意先B(変数)の名前で保存できると思いきや、名前が得意先Aになってしまう。
恐らくフィルターを使うことで、セル番地が変わってしまうためだと思ってます。

該当のソースコード

Sub ファイル名に変数代入() Dim FileName As String Dim Done As Variant 'ファイル名にしたいセル値を変数格納 FileName = Range("C2") '名前を付けて保存ダイヤログ表示 Done = IIf(Application.Dialogs(xlDialogSaveAs). _ Show(Arg1:=ThisWorkbook.path & "\" & FileName & ".xlsm", Arg2:=52), _ "保存", "キャンセル") End Sub

試したこと

エラーがでているわけではありませんが、ファイル名がフィルターで絞り込んだ得意先(変数)にならず、大変困っています。ネットでもいろいろと調べましたが個人では解決に至りませんでした・・・
どなたかわかる方がおりましたらお力添えお願いします。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。