穿过时，宏的运行方式不同

Question

我创建了一个按钮，可以打开不同的工作表并激活它们的宏。但是，当以这种方式运行时，最终的宏不起作用。它运行没有错误，它只是没有做任何事情。如果我单步执行它，它按预期工作。我要做的是删除H列中任何空白的单元格并将单元格移到左侧。

Option Explicit

Sub DeleteCellsWithBlanks()

Dim rng As Range
Dim sht As Worksheet
Dim LastRow As Long

Set sht = Workbooks("PCHSFR167663.csv").Sheets(1)

'check column G b/c each row will have a reservation number
LastRow = sht.Cells(sht.Rows.Count, "G").End(xlUp).Row

Set rng = Range("H1:H" & LastRow)

rng.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft

End Sub

谢谢和欢呼！