I define columns repeatedly in procedure after procedure

I start by making the header cell of the column a Named Range such as Col_D_Hdr (generally it's more useful than that!)

then
Dim iMyCol As Integer
iMyCol = Range("Col_D_Hdr").Column

Is there a way to make this Public, defining them all when the workbook opens? Everyway I’ve tried failed.