Break links

[Guest]

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

 

[Ron de Bruin]

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