Nachbarzelle ausgeben

Hallo

ich hoffe ihr könnt mir weiter helfen.

Ich habe mit dem Befehl Find eine Spalte nach einer Zahl durchsucht und sie auch gefunden zum Beispiel in B3, nur bekomme ich ja mit Address so ein wert raus ($B$3) mit welchen ich nichts anfangen kann, da ich weder Range noch Cells ansprechen kann.
Aber die Frage ist wie kann ich jetzt B4 in eine String-Variable speichern oder als Msgbox ausgeben.

Vielen Dank

DeinRange = "$B$4"
Nachbarzelle = range(DeinRange).Offset(1,0)

Gruß aus dem Norden
Reinhard Kraasch

Vielen Dank ist echt super

Gruß

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]