Loops VBA自动在Excel工作表中导航下拉列表

我试图在Excel工作表中创建一个下拉框，选中该下拉框后将导航到页面上的特定行。到目前为止，我已经得到了下面的工作良好。但问题是，我可能有一个数千行长的工作表，我显然不想在我的脚本上写“Case is=1000”等，因为这是一个冗长乏味的工作表。“Case Is”每次递增1，范围每次递增21。我知道我想要的是一个循环过程，但我只是不确定该怎么做

Sub Worksheet_Dropdown()
Select Case Range("B1").Value
    Case Is = 1
    Application.Goto Range("B3"), Scroll:=True

    Case Is = 2
    Application.Goto Range("B24"), Scroll:=True

    Case Is = 3
    Application.Goto Range("B45"), Scroll:=True

End Select
End Sub

---

Application.Goto范围（“B”和3+（范围（“B1”）.Value-1）*21），滚动：=True

效果很好；答案似乎也很简单。非常感谢。