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