修剪宏得到错误

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工作表