VBA无法遍历所有工作表

Question

我是VBA的新手，我遇到了一个简单的问题。我想在工作表中选择包含数据的所有单元格，按值粘贴它们，然后替换＆＃34; #NUM！＆＃34;使用＆＃34;＆＃34;（无）并在所有工作表中重复上述所有步骤。问题是它不会遍历所有工作表。请帮忙。

Sub Test()

Dim ws As Worksheet

For Each ws In ThisWorkbook.Sheets

'Select all, copy and paste-by-value
ws.Range("A1").CurrentRegion.Value = ws.Range("A1").CurrentRegion.Value

'Find and Replace
Cells.Replace What:="#NUM!", Replacement:=""

Next ws

End Sub