根据单元格值选择VBA

Question

我的代码返回错误。 结果是所希望的，但是错误消息却很烦人。 我该如何摆脱呢？

Sub SELECTIE_VERZUIM()

Dim Cval As Variant
Dim Rng1 As Range
Cval = Sheet4.Range("A16").Value
Set Rng1 = Sheet4.Range("D1:T" & Cval).Select

End Sub

运行时错误“ 424”：必需对象

Answer 1

尝试：

Sub SELECTIE_VERZUIM()

    Dim Cval As Variant

    Cval = Sheet4.Range("A16").Value

    Sheet4.Range("D1:T" & Cval).Select

End Sub

另外，您应避免在VBA中使用“ Select