This is regarding my old query only. I got the help through my earlie
post and after making some modifications, I have made written th
following code.


Sub test()

Dim Setup As Worksheet
Dim Inputf As Worksheet
Dim Output As Worksheet
Dim setrng As Range
Dim list As Range
Dim x As Long
Dim nwb As Workbook

Set Inputf = Workbooks("Input.xls").Worksheets(1)
Set Setup = Workbooks("Input.xls").Worksheets("Setup")
Set nwb = Workbooks.Add
Set Output = nwb.Worksheets(1)
Set setrng = Setup.Range("A1").CurrentRegion.Columns(1).Cells
x = 1
For Each list In setrng
Inputf.Columns(list.Value).Copy Destination:=Output.Columns(x)
x = x + 1
Next
nwb.SaveAs Filename:="Output.xls"
End Sub


Now I want to do some modifications in this. I want to check that, i
anyone has added the column title in the setup tab then it shuld tak
that perticulat title for the specified column. Else it will take th
original title of the column.
for eg., If I specify "a - Name", then it should take the title for th
column in "Output.xls" as "Name", and if I specify only "a", then i
should take the original title of the column.
How to do this

--
reen
-----------------------------------------------------------------------
reena's Profile: http://www.excelforum.com/member.php...fo&userid=3044
View this thread: http://www.excelforum.com/showthread.php?threadid=50160