Range Problem

[HokusPokus]

Hallo zusammen,

bekomme immer die Fehlermeldung 424 (Objekt erforderlich) weis nicht warum :/
Ziel ist es einen bereich auf Inhalt zu prüfen.

Sub Start() 
    dim Bereich as Range
    Set Bereich = Range(ActiveCell.Offset(0, 1), ActiveCell.Offset(0, 5)).Address <--- Hier kommt der Fehler. 
    If Bereich Is Nothing Then
        'TU DIES'                                
    Else
        'DU DAS'                                
    End If

Besten Dank