Excel 如何在模块中使用ActiveSheet属性

我有以下代码可以很好地用于我的单个excel工作表（总共有4个工作表）。当我试着把这段代码放到一个模块中，这样我就不需要把它放在每张纸上了，但是，它停止了工作。我还有其他几个sub使用了

Find\u Select

，因此无法将其放入模块迫使我有很多重复代码。任何帮助都将不胜感激。谢谢

Public Sub Find_Select()

Dim cl As Range
With ActiveSheet.Range("A2:X35")
    Set cl = .Find(rplc, LookIn:=xlValues)
    If cl Is Nothing Then
    Else
        cl.Select
    End If

End With

End Sub

---

下面的代码实现了这一点：

Sub Find_Select(rplc)
    Dim ws As Worksheet, cl As Range

    Set ws = Application.ActiveSheet
    With ws.Range("A2:X35")
        Set cl = .Find(rplc, LookIn:=xlValues)
        If cl Is Nothing Then
        Else
            cl.Select
        End If
    End With
End Sub