Sub 作業フォルダにある部分一致の作業ファイルを指定して開きたい()

'任意の作業フォルダ内の各人別の指定形式のファイルを都度操作したいな。。。。
'複数のプロシージャでも下記の作業ファイルを仕様するならばCallの括りのところに入れるか、Publicで入れるか？？？

'自PCのDocument内に\作業フォルダを作成し、そこに対象ファイル※ここでは”*作業ファイル.xls?”を格納します
'作業フォルダパスを変数にします。
Dim 作業フォルダパス As String
作業フォルダパス = "C:\Users\user\Documents\作業フォルダ"
'ここはお尻の/を忘れがちなので要注意！

'作業フォルダ内の任意のファイル名を取得して変数にします。
'ちなみに*がワイルドカード、?はAnyの1文字。この部分はいろいろ。
Dim ファイル名 As String
ファイル名 = Dir(作業フォルダパス & "*作業ファイル.xls?")

'作業ファイルを開きます。
Workbooks.Open Filename:=作業フォルダパス & ファイル名

'作業ファイル（ワークブック）を変数にしてます。Workbookの場合は「Set」します。
'開いたファイルを以降に使えるようにします。
Set 作業ファイル = ActiveWorkbook

作業ファイル.Activate

End sub