VBA Help with out or Range error

[willow1985]

I have a macro that works on multiple other computers with the exception of one. I get a script out of range error on this one computer and I cannot figure out why. It appears the drives/folder locations are named all the same (it is a network shared drive)

The Source_File = line is where I am getting the error.

Any ideas as to what could be the problem would be greatly appreciated.

Private Sub Transfer_CC()
Dim FSO
Dim Source_File As String
Dim Source_Folder As String
Dim Destination_Folder As String

Source_File = Workbooks("Customer Concern - Warranty Request Log").Sheets("List").Range("M1").Value & ".xls"
Source_Folder = "X:\QUALITY\Quality Assurance\Group\Corrective Actions\Customer Concerns - Corrective Action\"
Destination_Folder = Workbooks("Customer Concern - Warranty Request Log").Sheets("List").Range("I5")
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile (Source_Folder & Source_File), Destination_Folder, True

 

[Fluff]

Try adding the file extension to the workbook name.

 

[willow1985]

Try adding the file extension to the workbook name.

Sorry, how would I modify the Source_File line with the file extension?
The file extension is: X:\QUALITY\Quality Assurance\Group\Corrective Actions\

 

[Fluff]

You need to do it for the workbook name like

Source_File = Workbooks("Customer Concern - Warranty Request Log.xlsx").Sheets("List").Range("M1").Value & ".xls"

Change the bit in red to reflect the actual file extension.

 

[willow1985]

Thank you very much, that worked perfectly!

 

[Fluff]

You're welcome & thanks for the feedback.

If a user has folder settings set to "Hide extensions for known file types" then you don't need the extension, but if that setting is unchecked you need the extension.

 

[willow1985]

You're welcome & thanks for the feedback.

If a user has folder settings set to "Hide extensions for known file types" then you don't need the extension, but if that setting is unchecked you need the extension.

Good to know! that is most likely what is happening. I will keep that in mind. Thank you again

 

[Fluff]

You're welcome & thanks for the feedback.
It's always best to include the extension, that way your safe.