VBA to save file as to a directory

[sandra40s]

I need help in creating a VBA to save file as to a directory. I have the old file names including the directory in Worksheet1. I have the new file names including the new directory in Worksheet2. There are over 200 that needs to be saved as with the new name and directory. Please help.

 

[Useful]

Hello!
smt. like that?

Sub Savewb()
Set oldwbfullname = Sheets("Sheet1")
Set newwbfullname = Sheets("Sheet2")
lst = oldwbfullname.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lst
FileCopy oldwnfullname.Cells(i, 1), newwbfullname.Cells(i, 1)
Next
Application.DisplayAlerts = True
End Sub

(here old names and new names considered to be at the same row)

 

[sandra40s]

Useful,
I got an Object required (Error 424) when I used the code.

 

[Useful]

Useful,
I got an Object required (Error 424) when I used the code.

check your path is correct

(both old and new path & name begins from range A1. For ex: old - path&names starts from sheet1 range A1 (D:\path\oldname1.xlsx) and new - path&names (C:\path\newname1.xlsb) starts from sheet2 range A1)

 

[Fluff]

Hi
Should this

FileCopy [COLOR=#ff0000]oldwnfullname[/COLOR].Cells(i, 1), newwbfullname.Cells(i, 1)

be

FileCopy [COLOR=#ff0000]oldwbfullname[/COLOR].Cells(i, 1), newwbfullname.Cells(i, 1)

 

[sandra40s]

My files are microsoft excel-enabled worksheets. What is the correct extension for this file type?

 

[sandra40s]

This is an example of the file names. Sorry about using colors but this is the best I could do.

Old file name F:\Blue\Green\Red\2015 Orange Files\111 2015.xlsm
New file name F:\Blue\Purple\Yellow\Faded\Out\Out 2015\Colors 2015.xlsm

 

[sandra40s]

Fluff,
FileCopy oldwbfullname.Cells(i, 1), newwbfullname.Cells(i, 1) seems to be more accurate in what I need to do. I will try it.

 

[Useful]

Hi,
Yap, sorry, one letter was not correct ("n"). instead of oldwnfullname should be oldwbfullname or opposite. As you see above it decleared as "oldwnfullname" therefore you have to change either of them as the other one.

 

[sandra40s]

I got a path not found. I know the path is correct because I copied it. Is this a save as VBA? Is there an easier way to do this like old and new file names on the same line?