copy worksheet
 

Hi,
if I have some data in an excel spreadsheet and I want to copy certain
fields to another excel file. What function can I use? or how should I
go about doing it? Please let me know. Thanks.


--
owl527
------------------------------------------------------------------------
owl527's Profile: http://www.excelforum.com/member.php...o&userid=20916
View this thread: http://www.excelforum.com/showthread...hreadid=498263

copy worksheet
 

Hi owl527
try this, make nessesery changes.
Sub Makro1()
Dim kolA As Double
' detect the last row, you can change "A"
kolA = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"C:\Your new workbook.xls"
Workbooks("Your orignal").Activate
Workbooks("Your orignal").Worksheets("from sheet").Range("A1:c" &
kolA).Copy _
Destination:=Workbooks("new
workbook").Worksheets("sheet").Range("a1")

Application.ScreenUpdating = True


End Sub
regards
Yngve