Variable statt eintrag in Zelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim RaBereich As Range
If Selection.Count > 1 Then ActiveCell.Select
Set RaBereich = Range("B1, C1, B2, C2") 'Bereich der Wirksamkeit
If Intersect(Target, RaBereich) Is Nothing Then
If Cells(1, 1) = "" Then Cells(1, 1) = "$B$1"
Range(Cells(1, 1)).Select
Else
Cells(1, 1) = ActiveCell.Address
End If
Set RaBereich = Nothing
End Sub

Nun meine Frage:
Wie muss ich den Code schreiben, dass ich nicht die Zelle A1 als Hilfszelle mißbrauchen muss.
Ich versuche schon die ganze Zeit dies mit einer Variablen zu lösen, schaffe es aber leider nicht.
LG
Dirk R.