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

Hello Rod
Use PasteSpecial:
Worksheets(a).Cells.Copy
Workbooks(c).Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

HTH
Regards
Pascal

"rjtaylor " a écrit dans le
message de ...
Hi I have the following code. However I would like the sheet to be saved
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 and
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 Taylor


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