エクセルマクロで開いたワークブックにシートが複数存在するか確認したい

XLSXファイルを開いて、指定した複数のシートが存在するかチェックしたい。

ラブライブである必要はまったくない。そもそもよく知らない。

Dim FilePath As String
FilePath = "C:\Users\kenmituo\Documents\ラブライブ.xls"

If Dir(FilePath) <> "" Then
 Workbooks.Open Filename:=FilePath
 '　シート名チェック
 Dim FlagA, FlagB As Boolean: FlagA = False: FlagB = False
 For Each sht In ActiveWorkbook.Sheets
  If sht.Name = "かわいいこ" Then FlagA = True
  If sht.Name = "かわいくないこ" Then FlagB = True
 Next

 If FlagA = False Or FlagB = False Then
  MsgBox FilePath & vbCrLf & "(ﾉ*'‐')ﾉ ﾐ ┸┸ｴｲｯ♪　「かわいいこ」「かわいくないこ」シートが無い！ダメ"
  Else
  'ラブライブファイルが存在して、「かわいいこ」「かわいくないこ」シートが存在した場合の処理
 End If
Else
 MsgBox "ファイルを探してこい！"
End If

Rubyに比べるとBoolean型なのに面倒だ、、、