Hi Bob,
this is the procedure I'm using but I always get error
message or about the oject or about something else, can
you help on that one. thanks a lot
douvid

Sub installmytooloading()
Dim qst
Dim user

user = InputBox("Please enter your username for this
computer", "UserName")
ThisWorkbook.SaveAs "D:\The Documents and Settings/" &
user.Value & "/Application Data/Microsoft/AddIns"

End Sub

-----Original Message-----
sUsername=Inputbox("Please supply your user name")

--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the Purbecks


"Douvid" wrote in message
...
ok bob and how do I have to declare the variable that
will insert the user name ? this causes me problems

-----Original Message-----
Douvid,
try

ThisWorkbook.SaveAs "D:\The Documents and
Settings/"
& <user name &
"/Application Data/Microsoft/AddIns"

watch for wrap-around.


--
HTH

-------

Bob Phillips
... looking out across Poole Harbour to the
Purbecks


"Douvid" wrote in message
...
HI,
I need to use an inputbox to get the user name of the
user
and then save the workbook to a specific location.
This
location where I need to reinsert the user name as a
variable. I try this but something is wrong with the
argument. I haven't succeed to writte the synthaxe to
insert my variable in the location.
Thanks for your advices
Application.ThisWorkbook.SaveAs D:\The Documents and
Settings/<user name/Application
Data/Microsoft/AddIns




.



.