Macro help for a different user.

[kishoremcp]

I have the following macro which I am using on my desktop.
If I shared the same file so that others can also use, it is not working because of the username. My user name is "user1" and there are 70 users which want to run the same file in same manner. So any suggestions so that to capture the username automatically or any help????

The belo macro is working fine for me

Option Explicit 
Sub Copy() 
Dim fpath As String 
Sheets("Raw Data").Range("A2:AE13000").ClearContents 
 
fpath = "D:\Documents and Settings\user1\Desktop\" 
Workbooks.Open (fpath & "usc.xls") 
 
Workbooks("usc.xls").Sheets("Survey Details").Range("B5:BF12000").Copy Workbooks("CSAT US&C Falcons.xlsm").Sheets("Raw Data").Range("A" & Rows.Count).End(xlUp).Offset(1, 0) 
Workbooks("usc.xls").Close 
End Sub  

[StevenM]

Please Login or Register  to view this content.

[NickyC]

hi

if every user's username has been input to windows, this code should work for your file path

Please Login or Register  to view this content.

if not, you will have to get the user to input their own username, something like this:

Please Login or Register  to view this content.