This is the last question for a while.

How would I copy a file from c:\bdm to the users desktop?
Thanks again, it's almost over....

This is the mess I have now but I don't know how to reference the users desktop.

[VBA]Sub Macro1()
Dim password As String
Application.DisplayAlerts = False
password = InputBox("Enter Training Password")
If password = "g" Then
Application.ScreenUpdating = False
ChDir "C:\BDR"
Workbooks.Open Filename:="C:\BDR\profiler 1.0.xls", UpdateLinks:=3
ChDir "C:\Documents and Settings\sclan\Desktop"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\sclan\Desktop\profiler 1.0.xls", FileFormat:= _
xlNormal, password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
Else
MsgBox "Invaid Password"
ActiveWorkbook.Close
End If
End Sub[/VBA]