%Username%

Tengo un problemilla con el enrutamiento de una macro echa en vb de excel y que cree en el pn drive.
La macro es la siguiente
Sub Macro2()
'
' Macro2 Macro
' Macro grabada el 28/05/2010 por José Luis
'
' Acceso directo: CTRL+b
'
    Range("C9").Select
   Application.ScreenUpdating = False
    ChDir "D:\PLANTILLAS\yamaha\B_quilla"
    Workbooks.Open Filename:="D:\PLANTILLAS\Yamaha\B_quilla\DIA 01 B_quilla.xls"
    Range("G9:I320").Select
    Selection.Copy
    Windows("YAMAHA MENSUAL .xls").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
     Application.CutCopyMode = False
    Windows("DIA 01 B_quilla.xls").Activate
    ActiveWindow.Close
    Range("N16").Select
    Range("F9").Select
...
En el pen funciona correctamente. Si la paso a mis documentos el enrutamiento par ami pc seria el siguiente:
ChDir "C:\Documents and Settings\Jose Luis\Mis documentos\PLANTILLAS\Yamaha" y funciona la macro
pero quisiera que funcionara una vez copiada en otro pc con la carpeta mis documentos en c: del cual desconozco el nombre del pc y he probado así:
ChDir "C:\Documents and Settings\%Username%\Mis documentos\PLANTILLAS\Yamaha"
Y no consigo nada
¿Me podríais ayudar con esto? Estoy aprendiendo y os agradeeceria que me pusierais la linea completa para que funcionara