¿Cómo hago para copiar solo los valores, en esta macro?

Tengo una macro que copia hojas de un libro a otro pero en realidad lo que necesito es solo copiar los valores, para eliminarle el peso al archivo, pero no se por que no me funciona, tengo esta rutina, pero puedo enviar el archivo para que lo miren:

Private Sub CB_Preview_Click()
Application.ScreenUpdating = False
Dim fname As String
Select_Sheets
ActiveWindow.SelectedSheets.Copy
ActiveWindow.Activate
For Each Sh In ActiveWorkbook.Sheets
Sh.Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Application.CutCopyMode = False
Application.Dialogs(xlDialogSaveAs).Show fname
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub