copy worksheet

[owl527]

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.

[evgny]

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