Questa davvero non riesco a capirla....
Ho un file che contiene un elenco di file alla colonnaA, con questo codice apro i singoli file:
Private Sub ApriStrumento()
Dim CopySh As String, CopiedSh As String, NextName As String, StWB As String
Dim FlEx As Integer
If Intersect(ActiveCell, Range("A5:A1000")) Is Nothing Or Selection.Count > 1 Then MsgBox ("Selezionare il nome di un file"): Exit Sub '<<< Imposta il range con i nomi file
StWB = ThisWorkbook.Name
ChDrive Range("Drive") 'per cambiare drive
ChDir Range("Path") 'path per i file da aprire
'
Windows(StWB).Activate
NextName = ActiveCell.Value
If NextName = "" Then GoTo Exita
Workbooks.Open Filename:=NextName
OWb = ActiveWorkbook.Name
Exita:
Sheets("Foglio1").Select
Range("A5").Select
End Sub
I file hanno tutti 4 fogli ed 1 grafico. Il foglio del grafico si chiama Grafico1, ma quando li apro attraverso questo codice all'improvviso il foglio che contiene il grafico si chiama Grafico2 anzichè Grafico1.... che sarà mai?
Registrazione
