Fehler bei Löschen von Bereich (Union() Funktion)

[Primo Centurio]

Hallo zusammen 

Evt habe ich Tomaten auf den Augen (oder nach 4h programmieren keinen Überblick mehr  )

Ich habe folgenden Code

Code:

Sub ZweiteSeite()
Dim rng As Range

ActiveSheet.Copy After:=ActiveSheet

If Left(ActiveSheet.Name, 10) = "BR_Seite_3" Then

Set rng = Union(Range("B11:Q23"), Range("B27:O39"))

With ActiveSheet
rng.ClearContents
End With

End If

End Sub

Es handelt sich um zwei nicht angrenzende Bereiche deren Inhalt gelöscht werden soll, bei 

Code:

rng.ClearContents

 
Zeigt er mir dann den Lauffehler 1004 an.

Nutze ich die Union Funktion falsch?

Lg Primo

[Egon12]

Code:

Range("B11:Q23,B27:O39")

Gruß Uwe

[Primo Centurio]

Danke dir :) Funktioniert super. Habe auch den Fehler entdeckt, da war eine Zelle verbunden.

Lg Primo

[Egon12]

Gerne.