Excel VBA运行时错误91

Question

我是excel VBA的新手，我正在尝试编写代码以吸收两支NBA球队（一支主队和一支客队）的输入，进行测试以确保团队的名称存在于我的表格中，并输出输入的名称团队（如果找到）。 下面是我的代码：

Private Sub CommandButton1_Click()

Dim homeTeam As Variant
Dim awayTeam As Variant
Dim h As Variant
Dim a As Variant

'declare variables

homeTeam = InputBox("Enter the Home team", "Home Team")
awayTeam = InputBox("Enter the Away team", "Away Team")

'Use input boxes to obtain both the home and away teams

Set h = ActiveSheet.Cells.Find(homeTeam)
Set a = ActiveSheet.Cells.Find(awayTeam)

With h.Range("A2:A31")
    h = .Find(homeTeam)
    If h Is Nothing Then
        MsgBox ("Error: Home Team not found. Please Enter again")
    End If
End With

Range("I1").Value = h
Range("J1").Value = h

End Sub

我在此代码中遇到运行时错误91，我试图通过为h和a设置值来解决。 如前所述，我是该程序设计的新手，因此非常感谢任何输入。 谢谢！！！