Hi all!

Thanks a bunch Mudraker for those tips.

Well, here'z exactly what I tried as suggested .

Dim wsData As Worksheet
Set wsData = ActiveSheet
Workbooks.Add
wsData.Copy Befo=ActiveWorkbook.Sheets(1)

But, there were 3 macro buttons that I had created in the origina
workbook and that also is getting copied along with the other data t
the new workbook. But I do NOT need the macro buttons in the ne
workbook, just the data (values in columns and rows) in the ne
workbook.

Is there a way to implement this?
I would appreciate your help.

Thanks again.

Regds,

Arun....
Vtec corp

--
Message posted from http://www.ExcelForum.com

Sub dddd()
Dim wsData As Worksheet
Set wsData = ActiveSheet
Workbooks.Add

wsData.Cells.Copy

' paste values
ActiveSheet.Cells.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

'paste format
ActiveSheet.Cells.PasteSpecial Paste:=xlFormats, _
Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ActiveSheet.Range("a1").Select

End Su

--
Message posted from http://www.ExcelForum.com