Sorry forgot to paste the code:
Application.ScreenUpdating = False
Dim Sht As Worksheet
Dim rng As Range
For Each Sht In ActiveWorkbook.Worksheets
Sht.Select
Set rng = ActiveWindow.ActiveCell
Sht.Cells.Copy
Sht.Cells.PasteSpecial xlValues
rng.Select
Set rng = Nothing
Next Sht
Application.CutCopyMode = False
Application.ScreenUpdating = True

"Roundy" wrote:

I am trying to create a copy of two sheets from a large workbook and bring
only the values over for cells and for some text boxes. I also want to
create the copy without ANY linking between workbook. I ran this code on the
new sheet, but it doesn't do anything about the link or the text boxes that
reference name ranges.