●Regular Expressionの使用環境
VBA7.1

●検索か置換か？
検索

●説明
期待する数値の桁数かどうか。拡張子はあっても無くても良い。

●対象データ
AA17-0001.xlsm
AA17-0002

●希望する結果
ifで合致しているかどうかを判定しています。
.Pattern = "^AA\d{2}-\d{4}(\.xlsm$)?"

○AA17-0001.xlsm
○AA17-0002
×AA17-00023
×AA17-00024.xlsm

最後の?を削れば、拡張仕込みであれば上手くいきますが良い方法は
ないでしょうか。