Delete Non-Contiguous Rows, Excel VBA

[mkarizat]

I have a spreadsheet that users can only modify through userforms. One userform is meant to allow users to select entire rows of the spreadsheet and delete the data. My current code works when one row is selected or when one contiguous block of rows is selected, but fails when several non consecutive rows are selected. The code I'm having trouble with is the following:

Range(DataExport.Source.Text).Delete

And I get the following error:

Delete method of Range class failed

To be clear, something like "Master!$22:$22,Master!$23:$23" would fail, but "Master!$22:$23" would work.

 

[pgc01]

Hi

I just tried it and it worked OK.

Sub Test()
Dim s As String

s = "Master!$22:$23"
Range(s).Delete

s = "Master!$22:$22,Master!$24:$24"
Range(s).Delete

End Sub

 

[mkarizat]

Solution:


Text = Split(DataExport.Source.Text, ",")
For i = UBound(Text) To i = 1 Step -1
Range(Text(i)).Delete
Next i