エラー番号で、メッセージを変える

Errorhandler: ' エラー処理ルーチン。
Select Case Err.Number ' エラー番号を評価します。
Case 13
res = MsgBox("マスタに該当の店コードはありません。（販売店がありません。）" _
& vbCrLf & "はい --> その他の項目で店を検索する。: いいえ --> 検索を中止する。", vbYesNo, "CAUTION")
If res = vbYes Then Sheets("表示").Activate: End
If res = vbNo Then
Windows("si-menu.xls").Activate: Sheets("menu").Activate: End
End If
Case 55 ' "ファイルは既に開かれています。" というエラーです。
MsgBox "ファイルは既に開かれています。 " ' 開いたファイルを閉じます。
Case Else
' MsgBox " ERROR" ' 他のエラー処理をここに記述します。
End Select