vb.net - vb.net でデータ検証を動的に追加および削除する

Question

データ検証 (および inCellDropdown) をRangeセルに追加および削除しようとしています。初めて実行するのに問題なく動作しています。しかし、その後の実行では常にエラーが発生します。

表示されるエラーは「HRESULT からの例外: 0x800A03EC」です。

これはコードです：

If type = "a1" Then
  Try
    Me.Range("A1:A20").Validation.Delete()
    Me.Range("A1:A20").Validation.Add(Type:=Excel.XlDVType.xlValidateList, _
                    AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertStop, _
                    [Operator]:=Excel.XlFormatConditionOperator.xlBetween, _
                    Formula1:="=rangedname1")
  Catch ex As Exception
    MsgBox(ex.ToString)
  End Try
ElseIf type = "b2" Then
  Try
    Me.Range("A1:A20").Validation.Delete()
    Me.Range("A1:A20").Validation.Add(Type:=Excel.XlDVType.xlValidateList, _
                    AlertStyle:=Excel.XlDVAlertStyle.xlValidAlertStop, _
                    [Operator]:=Excel.XlFormatConditionOperator.xlBetween, _
                    Formula1:="=rangedname2")
  Catch ex As Exception
    MsgBox(ex.ToString)
  End Try
EndIf

以前にこの問題に対処した人はいますか?