vba変数にサブルーチンを割り当てる

Question

私は次のサブルーチンを持っています（モジュール10）。

Sub varWorksheet(wksht As String) 
Dim ws As Worksheet 

Set ws = ThisWorkbook.Sheets(wksht) 

Set ws = Nothing 
End Sub 

私はこのようなもので、変数への参照として、このサブ・ルーチンを渡すのではなく、各ルーチンで明示的に宣言する必要ができるようにしたい：

Set ws = module10.varWorksheet("Sheet1") 

私は取得していますコンパイルエラー - >予想される関数または変数。

Answer 1

あなたはこのような機能を使用します。

Function varWorksheet(wksht As String) As Worksheet 
    On Error Resume Next 
    Set varWorksheet = ThisWorkbook.Sheets(wksht) 
End Function 

ワークシートが存在しない場合は何も返しません。これは正常に動作します。

Sub Test() 
    Dim ws As Worksheet 

    Set ws = Modul10.varWorksheet("Tabelle4") 
    If ws Is Nothing Then 
     Debug.Print "No worksheet" 
    Else 
     ' what ever you want 
    End If 
End Sub