Rieccomi di nuovo qua

Tramite la macro:
Sub CopiaCalendario()
Dim p As String
Dim Mpath As Variant
Cells.Select
Selection.Copy
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Range("A1").Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End Sub

Modifico il calendario, ma in realtà questa cartella (Calendario) c’è ne una in DropBox, una in Box Sync ed un’altra in altro archivio sempre in rete. Per cui dovrei ogni volta modificare manualmente il percorso di destinazione.
Ora, con l’istruzione: NewFile = Application.GetOpenFilename
cerco la destinazione del file e lo assegno ad una cella (es. “K6”)
Vorrei dire all’istruzione:
Workbooks.Open ("C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx")
Di andare a pescare il percorso in “K6” cioè:
Workbooks.Open = Range(“K6”)

Ma non mi ascolta….

Rugantino

Ciao
Workbooks.Open si aspetta una stringa!
Fai così (tieni presente che non ho modo di testare ma dovrebbe funzionare)
in K6 metti ="C:\Users\User\Desktop\PROVA-CENTA\CALENDARIO_Ciclomotori.xlsx"
oppure il percorso che ti pare
quindi nella macro invece di Workbooks.Open = Range(“K6”) metti queste due righe di codice

percorso = Range("K6")
Workbooks.Open (percorso)

Fai sapere. Ciao,
Mario

Grazie Mauro,
funziona benissimo!

In realtà io insistevo nel mettere:
PercorsoFile = Sheets("Credenziali").Range("K6")
Workbooks.Open (“PercorsoFile”) …tra gli apici

Grazie Ancora
Rugantino