Buon giorno a tutti .....sto cercando una soluzione
Ho copiato sul Vs. sito una serie di codici per realizzare una macro che copi un singolo foglio in una nuova cartella
Funziona ...pero' :
Copia anche tutte le formule con relativi riferimenti di cella
non copia il contenuto di alcune celle che contengono parecchio testo(inserito con copia incolla da documento di word , direttamente nella barra della formula ) .
Queste celle contenenti testo contengono formula Cerca Vert e riportano il contenuto di celle che sono in un altro foglio di lavoro e sono il data base di riferimento (anagrafica ).
Effettuata la copia (lanciato il codice ) , sul file copiato viene riportata la formula ma nella cella appare #Rif/ND ....... COME SI PUO' FARE ????????????????

Allego codice che uso (Funzionerebbe ....)

Dim VBC As Object
Dim p As String

Sub CopiaFoglio()

' (1)...
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = DDir '<<< Filtro per nome
.Title = "Scegli la directory per il foglio " & ActiveSheet.Name
.Show
If .SelectedItems.Count = 0 Then 'directory non scelta
MsgBox ("Scelta non effettuata, procedura abortita"): Exit Sub
End If
DDir = .SelectedItems(1) & "\"
End With
' (2)...
NewFName = DDir & FPrefix & ActiveSheet.Name & ".xlsx"
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewFName
ActiveWorkbook.Close


With ActiveWorkbook.VBProject
For Each VBC In .VBComponents
If VBC.Type = 100 Then
With VBC.CodeModule
.DeleteLines 1, .CountOfLines
.CodePane.Window.Close
End With
End If
Next VBC
End With
End Sub
......magari qualcuno conosce la soluzione HELP
...... approfitto , esiste un modo per fare rinominare il file copiato direttamente dal msgbox (visto che mi fa' scegliere la nuova cartella di destinazione ????)

GRAZIE GRAZIE GRAZIE Claudio