>>205
確認せずに答えるけど、できないならOptionalのデフォルト値をNothingにして、
モジュール内で判断・分岐する

If a Is Nothing Then Set a = ActiveWorkBook
とか