ontdubbelen van uit userform

[drubbus]

Ik wil graag vanuit een userform een record kunnen verwijderen uit een bepaald tabblad genaamd DBASE
ik heb dit op het fora gevonden maar dan kan het alleen vanuit het tabblad zelf:

Sub RemoveDuplicates()

Cells.Sort Key1:=Range("A1")
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
Rows(Row).Delete
End If
Next Row

End Sub

De bedoeling is dus dat dit met een button vanuit een userform gebeurt

 

[drubbus]

opgelost

ik heb m zelf al opgelost
trots op me zelf
na wat speur werk 1 regel toegevoegd

Private Sub CommandButton1_Click()

Worksheets("Blad3").Select
Cells.Sort Key1:=Range("A1")
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
Rows(Row).Delete
End If
Next Row

End Sub