Application.CommandBarsがうまく開かない

前提・実現したいこと

VBA で２つのワークシートを比較して相違点をハイライトしたいと思います。
（例）Excel VBAを使っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

Run-time error '-2147467259 (80004005)':
Method 'ShowPopup' of object 'CommandBar' failed

このエラーが2回目のApplication.CommandBars("Workbook Tabs").ShowPopupの後に出てきます。


Workbooks(wbkA).Activateの後に:

Application.CommandBars("Workbook Tabs").ShowPopup
Set ws1 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)

というコマンドを入れると問題なく進みますが、

Workbooks(wbkB).Activateの後に:

Application.CommandBars("Workbook Tabs").ShowPopup
Set ws2 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)

というほとんど同じコマンドを入れたら上記のエラーメッセージが出てきます。

デバッグが出てきて、F8を押し、コマンド一つずつ進めるとうまく行きます。スクリプトの始めからF8を順番に押していってもうまくいきます。不思議な現象です。

そのあとのコードは全てうまくいきます。

該当のソースコード

Sub Button1_Click()

Dim mycell As Range
Dim mydiffs As Integer

Dim ws1 As Worksheet
Dim ws2 As Worksheet

ChDir Range("B4")
Title = "Select your Statestreet sheet"
checkfile1 = Application.GetOpenFilename(, , Title)
strfilename1 = Mid(checkfile1, InStrRev(checkfile1, "\") + 1)
ThisWorkbook.Sheets("Sheet1").Range("B7") = strfilename1

ChDir Range("B5")
Title = "Select your check sheet"
checkfile2 = Application.GetOpenFilename(, , Title)
strfilename2 = Mid(checkfile2, InStrRev(checkfile2, "\") + 1)
ThisWorkbook.Sheets("Sheet1").Range("B8") = strfilename2

Dim fname As String
Dim cname As String

'filename
fname = Range("B4") & Range("B7")
'checksheetname
cname = Range("B5") & Range("B8")


'Workbooks.Open Filename:="\\servername\" & Range("B7") & ".xlsx"
Workbooks.Open Filename:=fname

Workbooks("ITM Report.xlsm").Activate

Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

'Workbooks.Open Filename:="\\servername\" & Range("B6") & ".xlsm"
Workbooks.Open Filename:=cname
'Worksheets("Checksheet").Activate

Workbooks("ITM Report.xlsm").Activate

Dim wbkA As String
Dim wbkB As String

wbkA = Range("B8")
wbkB = Range("B7")

Workbooks(wbkA).Activate

Application.CommandBars("Workbook Tabs").ShowPopup
Set ws1 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)

Workbooks(wbkB).Activate

Application.CommandBars("Workbook Tabs").ShowPopup
Set ws2 = ActiveSheet
ActiveSheet.Move Before:=ActiveWorkbook.Sheets(1)


'For each cell in sheet2 that is not the same in Sheet1, color it yellow


'For Each mycell In Workbooks(wbkA).Worksheets("Summary").Range("A" & Rows.Count).End(xlUp).row
For Each mycell In Workbooks(wbkA).Worksheets(1).UsedRange
    'If Not mycell.Value = Workbooks(wbkB).Worksheets("1).Cells(mycell.row, mycell.Column).Value Then
     If Not mycell.Value = Workbooks(wbkB).Worksheets(1).Cells(mycell.row, mycell.Column).Value Then

        mycell.Interior.Color = vbYellow
        mydiffs = mydiffs + 1

    End If
Next

'Display a message box to demonstrate the differences
MsgBox mydiffs & " differences found", vbInformation

'Workbooks(wbkB).Sheets("Summary").Select

End Sub

試したこと

Workbooks(wbkA).Activate と Workbooks(wbkB).Activateの間に10秒のpauseを入れましたが、それでもダメでした。Workbooks(wbkA).Activate と Workbooks(wbkB).Activateを別々のモジュールにしてもダメでした。

補足情報（FW/ツールのバージョンなど）

使っているOSはWindows 10 Enterprise v1803 64bit, Excel 365 1903 32 bit