ExcelのVBAコードについて教えてください。

作業ブックのThisWorkbookに下記のコードを設定しております。
Private Sub Workbook_Open()
Dim tmp, dNow
tmp = Split(ThisWorkbook.Name, ".")
If Split(ThisWorkbook.Name, ".")(UBound(tmp)) <> "xlsm" Then
dNow = Format(Now, "yyyy/mm/dd")
With Worksheets("300")
If dNow >= Format(.Range("D39"), "yyyy/mm/dd") _
And dNow <= Format(.Range("E39"), "yyyy/mm/dd") Then
If MsgBox("便利帳・条例の比較（差分）の確認を行ってください。" & Chr(13) & "確認済の場合は「いいえ（N）をクリック」続けますか。", vbYesNo + vbExclamation) = vbYes Then
'「はい」のときに実行される処理
Call 比較日付
Call 便利帳比較ひな形
Call シート300確認

'「いいえ」のときに実行される処理
End If
Exit Sub
End If
End With
End If
End Sub

このコードは、マクロ有効テンプレート方式「.xltm」の時のみに
シート名「300」のセルに設定している日付がブックを開いた日付の範囲内であれば
メッセージBOXが表示されます。
このコードに追加して
ファイル名が「【フラット】○○.xlsm」（マクロ有効形式）だけを開いたタイミングで
シート名「F審査」のセル値「E15」をセレクト出来る方法を教えてください。
Sheets("F審査").Select
Range("E15").Select
ファイル名の「【フラット】○○.xlsm」（○○）部分は物件によって変更されますが
先頭の「【フラット】」は固定です。
よろしくお願いします

質問者からの補足コメント

• 

  回答ありがとうございます。
  申し訳ありません。
  貴者の教えて頂きましたコードを
  私のコードのどの部分に追加をすれば良いかがわかっておりません。
  よろしくお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2023/05/23 17:29

• BVAコードが下記のように変更になった場合について同じように
  変更コード
  Private Sub Workbook_Open()
  Dim strStart As String, strEnd As String
  If InStr(ThisWorkbook.Name, ".") <> 0 Then Exit Sub
  strStart = Sheets("300").Range("D39").Value
  strEnd = Sheets("300").Range("E39").Value
  If IsDate(strStart) And IsDate(strEnd) Then
  If Date >= CDate(strStart) And Date <= CDate(strEnd) Then

    補足日時：2023/05/24 15:04

• If Not (Sheets("受付").Range("K10").Value >= CDate(strStart) And Sheets("受付").Range("K10").Value <= CDate(strEnd)) Then
  If MsgBox("更新時期がきましたので、べんり帳の確認をお願いします。" & vbCrLf & "「OK」をクリックし、実行してください。" & vbCrLf & "その他の場合は「キャンセル」をクリック。", vbOKCancel + vbExclamation) = vbOK Then
  
  Call 行政統合
  End If
  End If
  End If
  End If
  End Sub

    補足日時：2023/05/24 15:04

• このコードに追加して
  ファイル名が「【フラット】○○.xlsm」（マクロ有効形式）だけを開いたタイミングで
  シート名「F審査」のセル値「E15」をセレクト出来る方法を教えてください。
  Sheets("F審査").Select
  Range("E15").Select
  ファイル名の「【フラット】○○.xlsm」（○○）部分は物件によって変更されますが
  先頭の「【フラット】」は固定です。
  よろしくお願いします

    補足日時：2023/05/24 15:05

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2023/05/23 17:15

If Split(ThisWorkbook.Name, ".")(UBound(tmp)) <> "xlsm" Thenの否定

Else側に【フラット】が含まれているか、含まれていれば
Sheets("F審査").Select
Range("E15").Select
でいいのかな

ソースを追加する部分

Exit Sub
End If
End With
'追加
Else
If InStr(tmp(0), "【フラット】") > 0 Then
Sheets("F審査").Activate
ActiveSheet.Range("E15").Select
End If
'まで追加
End If
End Sub

この回答へのお礼

回答ありがとうございました。
私の設定が間違っておりました。
上手くできました。
感謝いたします。

お礼日時：2023/05/23 17:40

No.1 回答者： fujillin 回答日時： 2023/05/23 17:11

こんにちは

＞ファイル名が～～だけを開いたタイミングで～～
ほぼ他の部分と同様の処理なので、何がわからないのかわからないのですが・・

ご質問の条件は
　ThisWorkbook.Name Like ”【フラット】*.xlsm”
で判定可能と思いますので、あとはお好みになさればよいでしょう。