Namen für ganze Spalten festlegen

Eigentlich ganz einfach für die Experten:

Mein Problem:

Ich möchte gern in verschiedenen Arbeitsblättern den Spalten, (sie besitzen aber keine Spaltenüberschrift) einen Namen vergeben. Allerdings soll der Name bzw. die Spalte nicht in jedem Arbeitsblatt vorkommen, sondern kann mit anderem Inhalt sein. Leider ist das unten stehende Macro so ausgelegt, daß es grundsätzlich in jedem Arbeitsblatt z. B. der Spalt "E" einen Namen verpaßt! und ich möchte eben im Arbeitsblatt x, y und z diesen Namen für die Spalte "E" nicht verwenden.

Hier noch das Macro:

Sub NamenVergeben()
Dim TB As Worksheet
Dim Adr$
Adr = Selection.Address
For Each TB In Worksheets
TB.Range(Adr).Name = TB.Name & "!Druck"
Next TB

Vielen Dank
H. John
End Sub