請教VBA裡以下這段程式碼在單步除錯都沒問題，但指定後...

MaverickRay

以下為程式碼：========================
Sub 上市投信買賣超一日()
' 上市投信買賣超一日
'選取工作簿裡的" (市)投信買賣一日" 工作頁
    Sheets("(市)投信買賣一日").Select
    Range("B3").Select
    ActiveWorkbook.Connections("上市投信買賣超一日更新連線").Refresh


    '凍結 D6 窗格
    Range("D6").Select
    ActiveWindow.FreezePanes = True
   
   '設定標題列=>B5~K5===========================
    Range("B5:K5").Select
    With Selection.Interior '選擇.內部(底色)
        .Color = 1          '底色設為黑色
    End With
    With Selection.Font
        .Name = "華康刷刷體W7"
        .FontStyle = "標準"
        .Size = 20
    End With
    '===========================================
   
    '設定 B4 買超格為紅色底色===================
    Range("B4").Select
    With Selection.Interior '選擇.內部(底色)
        .Color = 233        '233=紅色
    End With
    '設定 B4 買超格其字體為20大、華康刷刷體W7
    With Selection.Font
        .Name = "華康刷刷體W7"  '設定字體
        .Size = 20              '設定大小
        .Color = 1              '設定字體顏色為黑色=>1
    End With
    '============================================
   
    '設定 G4 賣超格綠色底色、20字大==============
    Range("G4").Select
    With Selection.Interior '選擇.內部(底色)
        .Color = 7798533    'G4賣超儲存格底色=綠色
    End With
    '設定 G4 賣超格其字體為20大、華康刷刷體W7
    With Selection.Font
        .Name = "華康刷刷體W7"  '設定字體
        .Size = 20              '設定大小
        .Color = 1      '設定字體顏色
    End With
    '============================================
   
    '設定日期格字體與大小========================
    Range("B3").Select
    With Selection.Font
        .Name = "新細明體"
        .Size = 16
    End With
    '============================================


'將日期格B3，擴大至佔兩個儲存格，以便全頁欄位最適化時，不會受到日期字寬而使買超欄位全部變寬
    Range("B3:C3").Select
    Selection.Merge  '使B3與C3合併
    With Selection
        .HorizontalAlignment = xlLeft  '合併內水平對齊=靠左
        .VerticalAlignment = xlCenter  '合併內垂直對齊=靠中
        .MergeCells = True
    End With
   
'將該頁儲存格欄寬最適化======================
    Cells.Select                      '選擇所有儲存格
    Cells.EntireColumn.AutoFit        '儲存格整列.自動調整 (欄寬最適化)
End Sub


================================================
以上為個人利用錄製巨集與外部匯入參照，加刪掉一些不必要的設定值後拿來做自動更新的程式碼，但很奇怪的是，在最後兩段紅色字體裡，我將B3與C3儲存格合併後，再試著讓試算表自動幫我表格欄位最佳化時、、、
當我以debug模式一一動作時，這兩段的內容都有照實的作業，也就是程式執行到結束，其B3、C3是有被合併在一塊，且欄位有被最適化。

不過當我將此巨集指定到一快速鍵後，再按下此鍵時，欄位在最適化後又會自動縮在一塊，變成如附圖所示、字體全縮在一塊，而且，在我點選C3格時，它並沒有跟B3合併在一塊？？？？

這真的好奇怪，單步除錯時無誤，快速按鍵卻不行，希望有高手指點迷津，在此先謝謝了..