safe first sheet in another workbook

[nona]

Does anybody know if it is possible to save the first sheet into
completely other workbook? If so, how can this be done?

So in short: I've got to work with 5 different sheets, and everythi
that's filled in on 4 sheets is mentioned on the first sheet, s
eventually I only need to save the information on the first sheet in a
other workbook (that I've created so the first sheet has the sam
layout as before).
I've created a commandbutton to check everything and to ask whether i
should be saved or not. If yes is selected I want the sheet to be save
in another workbook (named calculatiesheet2).

I hope somebody knows how this can be done.

Thanks in advance,


Mano

 

[J.E. McGimpsey]

One way:

Application.ScreenUpdating = False
Sheets(1).Copy
With ActiveSheet.UsedRange
.Value = .Value
End With
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:="calculateiesheet2"
.Close savechanges:=False
End With
With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With

The .Value = .Value converts references to the original workbook
(and any other formulae) to constants.