Macro EXCEL per eliminare riferimenti a formule

[ddannyy]

Buonasera a tutti
Questa è la mia richiesta

Ho un file excel che fa riferimento ad un listino che restituisce codice e prezzo del prodotto attraverso la formula

=SE(A17="";"";CERCA.VERT(A17;Pricelist!$A:C;3;0))

Riesco inoltre a salvare il solo foglio di lavoro contenente l'offerta e non tutti i fogli della cartella grazie alla macro

Sub Rettangoloarrotondato6_Click()
ActiveSheet.Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Cells(1, 1).Select
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\OfferteLIFE\" & Cells(11, 2) & Cells(3, 7) & ".xls"
ActiveWorkbook.Close
Cells(1, 1).Select
End Sub


Il problema è che mantenendo attivo il riferimento il file risultante è molto pesante (quanto il listino)

Volevo chiedere se è possibile evitare di copiare anche i riferimenti al listino

In manuale copiavo le singole celle e facevo incolla solo valori, ma non sono capace di farlo attraverso la macro.

Grazie per tutto l'aiuto

[wallace&gromit]

ciao ddannyy
invece di
ActiveSheet.Paste
scrivi:
ActiveSheet.PasteSpecial Paste:=xlPasteValues

così ti incolla solo i valori e non le formule

[ddannyy]

Ciao
Ho impostato la macro in questo modo

Sub Rettangoloarrotondato6_Click()
ActiveSheet.Select
Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.PasteSpecial Paste:=xlPasteValues
Cells(1, 1).Select
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\OfferteLIFE\" & Cells(11, 2) & ".xlsx"
ActiveWorkbook.Close
Cells(1, 1).Select
End Sub

Ma mi restituisce un errore 1004 di runtime

cosa potrebbe essere?
Grazie per l'aiuto

[wallace&gromit]

hai ragione,
ho ripreso questa macro da un altro documento dove funzionava con ActiveSheet.
prova as sostituire ActiveSheet con Selection a me funziona con qualcosa di simile al tuo file.