Break links
 

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

Break links
 

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