Target directory & Path
 

Hi, I save all my working files within one folder (Report) that i save at C:
drive.
To access within the files, i set password, e.g

Sub openreport()
myPWD = Application.InputBox("Password Protected! Please Enter Authorized
Password to Continue!")
If myPWD = "5657" Then
Shell "WinWord C:\Report\Individual Report Class1.doc" Else
MsgBox "Wrong Password! Bye!"
End If
For Each w In Workbooks
w.Save
Next
Application.quit
End Sub

My problem: I set the directory and path using macro. But when I copy the
folder to different location e.g D: or L: drive, I cannot access to the file.
What I have to do is, modify the macro again.

My question: is there any way the directory path can be fix to be one only.
That mean, if i change the location, dont need edit again.?

Tq
Param