The easiest way (in my opinion, of course) would be to copy the sheet and
clear the unwanted data

Private Sub CommandButton1_Click()
Me.copy
activesheet.Range("34:65536").EntireRow.Delete
activesheet.Range("V:IV").EntireColumn.Delete
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\MyFolder\Newfile.xls"
Application.DisplayAlerts = True
End Sub

--
Regards,
Tom Ogilvy



"ole_" wrote in message
...
Hi,

does any one now how copy range A1:T33 to a new workbook with all it's
format
ColumnWidth, Rowheight and colours etc.
It should be run from a commandbutton

AHA
Ole_