automatische Vergabe von Bereichsnamen?

mit dem Code

Sheets("IFA").Select

With ThisWorkbook.Names
.Add "rngIFA_UAN", Range("A2:" & Range("A2").End(xlDown).Address)
.Add "rngIFA_Name", Range("B2:" & Range("B2").End(xlDown).Address)
End With


lege ich dynamisch Bereiche fest. Vorher werden sie gelöscht.
Mein Problem ist, dass ich 3 Mappen habe, in dnene jeweils rund 20 Bereiche festgelegt werden müssen. Würde ich es nach dem Prinzip oben machen, wäre das eine unendliche Tiparbeit.

Deshalb dachte ich mir das in einer Schleife machen zu lassen. Es soll in Spalte D, Reihe 2 angefangen und bis Z jeweile der benutzte Bereich abwärts ermittelt werden. Dieser soll dann einen Namen zugeteilt bekommen, am besten den Namen des Tabellenblattes & Spaltenbuchstabe (zb: IFA_D, IFA_E usw.)

Ist so etwas hinzubekommen?

Gruss,
Martin