fname = Application.GetOpenFilename
Set wb = Workbooks.Open( filename:=fname)
'
'
Windows("Fichier Exemple.xls").Activate
Sheets("Fichier Exemple").Activate
wb.activate

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Jeff" wrote in message
...
Hi,
This is my VBA Macro:
fname = Application.GetOpenFilename
Workbooks.Open filename:=fname
'
'
Windows("Fichier Exemple.xls").Activate
Sheets("Fichier Exemple").Activate
How do I re-activate fname ?
Thanks,