Save sheet without links

  • Thread starter Thread starter rjtaylor
  • Start date Start date
R

rjtaylor

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
 
Hello Rod
Use PasteSpecial:
Worksheets(a).Cells.Copy
Workbooks(c).Sheets(1).Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False

HTH
Regards
Pascal
 
Back
Top