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

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

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