Hi I have the following code. However I would like the sheet to be save
with values only no links is there a way to do this thanks

Private Sub Sheet_Save()
a = ActiveSheet.Name
b = ActiveWorkbook.Name
Set myBook = Workbooks.Open(Filename:="C:\Documents an
Settings\default\Desktop\ORLSCH Stor-BK\Backup " & b)

c = ActiveWorkbook.Name
Workbooks(b).Activate
Worksheets(a).Activate
ActiveSheet.Copy after:=Workbooks(c).Sheets(1)
ActiveSheet.Move after:=Sheets(Sheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

Rod Taylo

--
Message posted from http://www.ExcelForum.com