激活与单元格中的值匹配的工作表

我坚持这种情况。 我有与下面的单元格值相同的工作表名称：

我现在能够循环通过床单。 我的问题是，如何激活表格，如果它匹配的单元格值？ 我试过这个代码：

For Each sheet In Sheets If wb2.Sheets("Sheet1").Range("A" & i) = sheet.Name Then 'Activate the sheet End If Next 

Answer 1

在我看来，没有必要循环，只是去

 On Error Resume Next wb2.Sheets("Sheet1").Range("A" & i).Activate On Error GoTo 0 

On Error Resume Next … On Error GoTo 0语句处理wb2没有这种表单的wb2

Answer 2

我已经知道了我的问题：

 For Each sheet In Sheets If wb2.Sheets("Sheet1").Range("A" & i) = sheet.Name Then sheet.Activate End If Next 

谢谢！