下标越界（运行时错误＃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中调用。