修剪宏得到錯誤

Question

我無法弄清楚這條線For Each c In ws.UsedRange.Cells我不斷收到錯誤Method 'worksheet' range failed

感謝

編輯：更新

Sub trimAll() 
Dim ws As Worksheets 
Dim c As Range 

For Each ws In WorkSheets 
    If ws.Name = "XXX" Or ws.Name = "YYY" Then 
     For Each c In ws.UsedRange.Cells 
      If Not (IsEmpty(c) Or IsError(c)) Then 
       c.Value = Trim(c.Value) 
      End If 
     Next c 
    End If 
Next ws 
End Sub 

Answer 1

嘗試：For Each ws in Worksheets因爲Sheets集合可以包含東西AREN 't工作表