strFilnavn = Application.GetOpenFilename( _
"NPR-uttrekk (*.txt; *.org; *.dat; *.raw),*.txt;*.org;*.dat;*.raw")
set wkbk = workbooks.Open(strFilnavn)
' optional
sName = wkbk.Name ' sName will be like "Myworkbook.xls"

' later

wkbk.Activate
' or workbooks(sName).Activate


alterate method

for each wbk in Application.Workbooks
if lcase(strFilnaven) = lcase(wbk.Fullname) then
wkb.Activate
exit for
end if
Next

--
Regards,
Tom Ogilvy


"news.sintef.no" wrote in message
...
OK, but how do I activate from a macro, a file that is already opened but
not currently activated (in focus)?

My problem is that the windows.activate method don't accept a file name
referenced by a string variable.

Frank


"Jan Karel Pieterse" wrote in message
...
Hi News.sintef.no,

How do I activate a file when the filename is a string variable
retrieved by
the "Application.GetOpenFilename" command?

strFilnavn = Application.GetOpenFilename("NPR-uttrekk (*.txt;
*.org;
*.dat; *.raw),*.txt;*.org;*.dat;*.raw")


The getopenfilename method does not open the file, it merely gets the
name
from the user (or an empty string on a cancel).

So you need to use

Workbooks.Open strFilnavn

first.

Regards,

Jan Karel Pieterse
Excel MVP
www.jkp-ads.com