VBA Bestimmte Spalten belassen, andere löschen

Option Explicit
Sub SpaltenBelassenLöschen()
Dim rng As Range, rngDel As Range
Dim vntColumnsToKeep As Variant
'Überschriften die NICHT gelöscht werden sollen!
vntColumnsToKeep = Array("Name", "Vorname", "Strasse", "Ort")
For Each rng In ActiveSheet.UsedRange.Rows(1).Cells
If IsError(Application.Match(rng, vntColumnsToKeep, 0)) Then
If rngDel Is Nothing Then
Set rngDel = rng.EntireColumn
Else
Set rngDel = Union(rngDel, rng.EntireColumn)
End If
End If
Next
If Not rngDel Is Nothing Then rngDel.Delete
Set rng = Nothing
Set rngDel = Nothing
End Sub