Sure you don't have your s1 and s2 reversed. S2 refers to column D and S1 to
column C. You refer to the existing name as column D and the new name is
column C. Is that the correct? If not, that could account for the 53 error
I would think.

also does the "New TCs" subdirectory already exist.



--
Regards,
Tom Ogilvy


"InventoryQueryGuy" wrote:

I just can't get the code to work. I either get a syntax error or error '53'.
Can anyone see where i'm going wrong here. My goal is to rename a file based
on one cell matching another.

Option Compare Text
Sub CribSortingTest()

Dim s1, s2 As String
Dim x, y As Integer
x = 2
y = 1

Do While Workbooks("NewCrib copy.xls").Worksheets("Sheet1").Cells(x,
1).Value < ""
s1 = Cells(x, 3).Value
s2 = Cells(x, 4).Value

If Workbooks("NewCrib copy.xls").Worksheets("Sheet1").Cells(x, 4).Value <
"" Then
Name "D:\Documents and Settings\e345193\Desktop\Tools\" & s2 & ".doc" As
"D:\Documents and Settings\e345193\Desktop\Tools\New TCs\" & s1 & ".doc"
Else

End If

x = x + 1
s1 = ""
s2 = ""
Loop




End Sub