下标超出范围（运行时错误＃9）

Question

我写了一个清除工作表的函数：

Function Clear_all(str_Sheet_Name As String)

    Sheets(str_Sheet_Name).Select
    Cells.Select
    Selection.ClearContents

End Function

我尝试使用此代码几次，使错误下标超出范围（运行时错误9＃），但在其他文件中运行完美。

Answer 1

如果从工作表单元格调用该函数，则它无法工作，因为此类函数只能将值返回到它所在的单元格。需要从 sub 调用该函数。