In Excel how to make Column Values to Column Headings
 

I have a single Column in one Spreadsheet of a workbook, and the values have
to be Column headings in another spreadsheet in the same workbook. How can I
do this Programmatically? Any help is greatly appreciated.

Thanks.
J

In Excel how to make Column Values to Column Headings
 

ToolsMacro "Record New Macro"

Copy the range of cells(not more than 256) from source worksheet.

Switch to target worksheet and Paste SpecialTransposeOKEsc.

Stop recording.

Gord Dibben Excel MVP

On Fri, 22 Oct 2004 14:09:02 -0700, "JP" wrote:

I have a single Column in one Spreadsheet of a workbook, and the values have
to be Column headings in another spreadsheet in the same workbook. How can I
do this Programmatically? Any help is greatly appreciated.

Thanks.
J

In Excel how to make Column Values to Column Headings
 

with worksheets("sheet1")
set rng = .Range(.Cells(1,1),.Cells(1,1).End(xldown))
End with
if rng.count <= 256 then
rng.copy
worksheets("Sheet2").Cells(1,1).PasteSpecial paste:=xlPasteAll,
Transpose:=True
end If

--
Rgars,
Tom Ogilvy


"JP" wrote in message
...
I have a single Column in one Spreadsheet of a workbook, and the values
have
to be Column headings in another spreadsheet in the same workbook. How can
I
do this Programmatically? Any help is greatly appreciated.

Thanks.
J