VBAのサブ関数から関数を呼び出す - 修飾子エラー

Question

私はVBAコードでより「オブジェクト指向」にしようとしています。しかし、関数に変数を渡すことができません。ここでは、IsEmpty関数で無効な修飾子エラーメッセージが表示されます。

コードを修正するにはどうすればよいですか？

Sub test_too_much_data() 

If toomuchdata("Data input", "B1018") = False Then 
    MsgBox ("Sorry, the tool can only accomodate 1000 rows.") 
    Exit Sub 
End If 

End Sub 


Function toomuchdata(sheet As String, range As Variant) As Boolean 
    toomuchdata = IsEmpty(Sheets("String")).range(range) 
End Function 

ありがとうございます！

Answer 1

更新以下のようなものにあなたのFunctionコード：

Function toomuchdata(sheetStr As String, RngStr As String) As Boolean 
    toomuchdata = IsEmpty(Sheets(sheetStr).Range(RngStr).Value) 
End Function