excel - セルの内容からファイルに名前を付けるための Visual Basic Excel 関数

Question

Visual Basic で関数を記述して、特定のセルの値に基づいてスプレッドシートのファイル名を作成しようとしています。

これまでのところ、私はこのコードを使用しています：

Public Sub SaveAsA1()
ThisFile = "RWO_" + Format(Now(), "yyyymmdd") + "_" + Format(Now(), "hhmm") + "_" + Range("D4").Value + "_" + Range("F5").Value + "_" + Range("D8").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
End Sub 

このコードは、ファイルを初めて保存するときに機能しますが、ファイルを再保存するたびに、セルの新しい値に基づいてファイル名を更新しません。

これを行う関数を作成する方法を知っている人はいますか?