How to iteratively name columns

Hi

I have a worksheet with a few hundred data columns (containing 500 rows) of historical stock prices each with a heading (in my case, the ticker of the asociated stock).
I wish to automatically name the columns as the respective tickers.

What I want is something like this

for c = 2 to 500

range(Cells(3,c) : (503,c).name = range("2,c").text

here c is the column number. and the data is from rows 3 to 503.

I cant get the syntax right, or I keep getting a global range error.
Please help.