Devo riaprire il post per risolvere un'anomalia relativa alla conversione delle celle C9, C10 e C11 da collegamento a numero e per il salvataggio del file.

Questa la macro (che non nego aver preso un po qua e un po la, cercando di assemblare le funzioni)

----------

Sub esporta()
Sheets("Scritture").Range("C9").Value = Sheets("Attività").Range("N9").Value
Sheets("Scritture").Range("C10").Value = Sheets("Attività").Range("N10").Value
Sheets("Scritture").Range("C11").Value = Sheets("Attività").Range("N11").Value
Sheets("Scritture").Range("C12").Value = Sheets("Attività").Range("N32").Value
Sheets("Scritture").Range("C13").Value = Sheets("Attività").Range("N12").Value
Sheets("Scritture").Activate

Dim tb As Workbook
Dim wb As Workbook

Set tb = ThisWorkbook
Set wb = Workbooks.Add

tb.Worksheets("Scritture").Copy

fpath = wb.Path & "\"
nomefile = ActiveSheet.Range("H1").Value & ".xlsx"
Application.Dialogs(xlDialogSaveAs).Show nomefile
ActiveWorkbook.Close SaveChanges:=False
End Sub

--------

1. le celle vengono convertite in numero, ma purtroppo anche nel file di origine i numeri sostituiscono i collegamenti e questo non deve accadere perché nel file originale devono rimanere i collegamenti al foglio attività

2. l'oggetto a cui è collegata la macro è, e deve restare, nel foglio Attività... a questo punto devo prendere come nome del file, il contenuto della cella H1 del foglio Attività (cosa che non accade) e poi procedere al salvataggio del foglio esportato ... cosa che non accade!!!

Allego il file per facilitare la risoluzione del problema