如果工作簿中包含多個工作表，需要在每個工作表中用這種方法進行查找。關于“定位”功能的更多技巧，請參閱技巧28。
注意：隱藏列或行中的對象利用這種方法無法被看到。
（2）用VBA 對工作簿中的對象進行計數，查看在每個工作表中實際存在的對象數量，如果此數量不合理，就說明有問題。按打開VBA 編輯器窗口，單擊菜單“插入”→“模塊”來插入一個新模塊，默認情況下為“模塊1”，然后在模塊1 的代碼窗口中輸入以下代碼：
Sub CountShapes()
Dim n As Double
Dim ws As Worksheet
Dim Content As String
For Each ws In Worksheets
n = ws.Shapes.Count
Content = Content & "工作表" & ws.Name & " 有" & n & " 個對象" & vbCrLf
Next
MsgBox Content
End Sub
最后，按F5 鍵來運行這段代碼，就能看到檢查結果。在看似空白的工作表中，存在著大量的圖形對象，如圖2 所示。