Hi Nils,

For your first question, try:

Sub MyTest()
Dim WB As Workbook
Dim fName As Variant

ChDir "C:\Documents and Settings\NormanJones" '<<< CHANGE

fName = Application.GetOpenFilename()
If Not fName = False Then
Set WB = Workbooks.Open(fName)
Else
'User cancelled
End If
End Sub


Change the directory path to suit.

I am not sure that I understand your second question, but, perhaps,
something like:

Sheets(1).Name = "New Name"


---
Regards,
Norman



"Nils Morten Blakstad" wrote in message
...


Thanks a lot mr Normann!
It realy works! :))

I have still 2 questions, which I hope you can give me answers to (if I
may ask..).

Question 1:
How du I cose a specific folder in that macro?

Question 2:
How do I (in macroes) change the name of a specific sheet in my
woorkbokk (the name and the sheet will be variable)?




*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!