vba - 複数のワークシートでのデータの操作 - VBA

Question

私は VBA の初心者で、さまざまなワークシートの値を比較して判断する必要があります。

ワークシートの 1 つにテストのテンプレートがあり、他のワークシートには各生徒の解答があります。実際には、Sheet1 のセル A1 が正解です。ここで、すべてのシートを調べて、各回答のセル A1 が正しいかどうかを確認する必要があります。

私のコードは次のとおりです。

Function Answer(Var As Range) As Long

   For Each Plan In ThisWorkbook.Worksheets
       Plan.Activate
       If Plan.Range(Var).Value = 1 Then 'Line 4
          Answer = Answer + 1
       End If
   Next Plan

End Function

4 行目では、現在のセルの値を取得しようとしています。しかし、それは #Value エラーを返します。誰でも私を助けることができますか？

助けてくれてどうもありがとう！

よろしく、