Ciao a tutti, qualcuno gentilmente mi sa dire come si fa a fare un "riferimento su se stesso" (file) in vba.. mi spiego meglio, ho una piccola macro in excel al quale gira in un file di template (.xlt), il problema sorge quando all'interno del codice si deve fare riferimento al nome del file ma questo ovviamente ogni volta avrà un nome diverso il quale fa fallire la macro.. ecco la macro:

Sub AGG001()
'
' DOVE C'E' "template.xls "
' E' DOVE DEVE ESSERE FATTO IL RIFERIMENTO AL FILE STESSO
' (GENERATO DAL TEMPLATE)
' QUALCOSA COME IL .ME IN DOTNET
'

Sheets("TES").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("POS").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("CAT").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
Sheets("TES").Select
Workbooks.Open FileName:="C:\PREV_TES.xls"
Range("A1:AA2").Select
Selection.Copy
Windows("template.xls ").Activate
ActiveSheet.Paste
Range("A1").Select
Windows("PREV_TES.xls").Activate
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Close
Sheets("POS").Select
Workbooks.Open FileName:="C:\PREV_POS.xls"
Range("A1:K20").Select
Selection.Copy
Windows("template.xls ").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Windows("PREV_POS.xls").Activate
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Close
Sheets("CAT").Select
Workbooks.Open FileName:="C:\PREV_CAT.xls"
Range("A1:B6").Select
Selection.Copy
Windows("template.xls ").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Windows("PREV_CAT.xls").Activate
Application.CutCopyMode = False
Range("A1").Select
ActiveWorkbook.Close
Sheets("PREV").Select
End Sub


GRAZIE
=)