Renaming File from "Scan.pdf" to Target Cell Text, Debug Error.

All,
I am trying to automate a renaming of files that get scanned to a specific folder.

The code that works with no errors is

Sub FileRENAME()

Dim Target_Folder As String
Dim iName As String

Target_Folder = ThisWorkbook.Path & "\"
iName = Sheets("RENAME PROGRAM").Range("C1").Text

Name Target_Folder & "Scan.pdf" As Targe_Folder & iName & ".pdf"

End Sub

The problem is I need the file to get renamed into a folder called "PDF" where "ThisWorkbook" resides.

The code I WANT to use so when the file name gets renamed, it STAYS in the folder "PDF" but if I add a "PDF" subfolder it gives a Debug error.

Sub FileRENAME()

Dim Target_Folder As String
Dim iName As String

Target_Folder = ThisWorkbook.Path & "\PDF\"
iName = Sheets("RENAME PROGRAM").Range("C1").Text

Name Target_Folder & "Scan.pdf" As Targe_Folder & iName & ".pdf"

End Sub

I know I'm probably missing a step or have not formatting it just right. If push comes to shove I can always keep it in my "Documents" folder but am trying to automate this so it is easy for folks to find the file quickly rather than combing through hundreds of files in "Documents".

TL;DR;
ThisWorkbook is in a subfolder called "PDF"
I run macro and the file gets moved out of PDF into a folder called Documents.

I tried added a "PDF" sub folder in the code and throws an error.

There is nothing to check. Everything is defined.
Target_Folder is the Destination. It is defined. If it wasn't, it would give an error even if hard coded
The source path is ThisWorkbook.Path & "\PDF\."
In that subfolder there is a PDF named "Scan.pdf".
So the file exists EVEN THOUGH the error says it doesn't. I gave the source code I had written. So unless "ThisWorkbook.Path & "\PDF\." does NOT equal C:\Users\spratt\Documents\PDF\ I don't know what else there is to check.


This is like saying a + b = 4 and a = 1 and b = 3 and it the error given is saying "number cannot be found".
So I hard code the 1 + 3 = 4 and no error or use the variables and there is an error makes literally no sense.

So unless I am misunderstanding the variable "ThisWorkbook.Path" and how that works. The question is not whether the file exists, it is WHY putting C:\Users\spratt\Documents\PDF\
works while ThisWorkbook.Path & "\PDF\." does not.

The picture Shows the file exists and it IS called "Scan.pdf"

Again, thank you for trying to help. But at this point unless someone can actually point out where my logic is wrong, just saying "the file doesn't exist, check the Strings" will not resolve anything as those have been checked and double checked.

When the logic fails this error rises …

According to your logic a VBA demonstration which displays a message when the source file is not found
and if an error rises on the Name codeline so something is wrong in cell C1 or according to VBA help the destination file already exists :

PHP Code: 

Sub Test4Noob()
    Dim S$
        S = ThisWorkbook.Path & "\PDF\Scan.pdf"
    If Dir(S) = "" Then
        MsgBox S & vbLf & vbLf & "File not found !", 16, "Error"
    Else
        Name S As ThisWorkbook.Path & "\" & ['RENAME PROGRAM'!C1].Text & ".pdf"
    End If
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄