I have a workbook which will automatically save a copy of a roster when
printing the roster and I would like to have this macro break the link to the
main workbook when saving. Here is my current code:

Sub Copy_Save_OneDay_Sheet()
'
' Copy_Save_OneDay_Sheet Macro
'
Sheets("Roster(1 Day)").Select
Sheets("Roster(1 Day)").Copy
Do
fname = Application.GetSaveAsFilename
Loop Until fname < False Or msoButtonSetCancel

If fname < False Then
ActiveWorkbook.SaveAs fname
ActiveWorkbook.Close savechanges:=False
End If

End Sub

Can anyone help? Thanks

Hi dwaynesworld

You can add code like in the link after you create the new workbook
with Sheets("Roster(1 Day)").Copy

http://www.rondebruin.nl/values.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"dwaynesworld" wrote in message ...
I have a workbook which will automatically save a copy of a roster when
printing the roster and I would like to have this macro break the link to the
main workbook when saving. Here is my current code:

Sub Copy_Save_OneDay_Sheet()
'
' Copy_Save_OneDay_Sheet Macro
'
Sheets("Roster(1 Day)").Select
Sheets("Roster(1 Day)").Copy
Do
fname = Application.GetSaveAsFilename
Loop Until fname < False Or msoButtonSetCancel

If fname < False Then
ActiveWorkbook.SaveAs fname
ActiveWorkbook.Close savechanges:=False
End If

End Sub

Can anyone help? Thanks