FOLDERPATH - auf Zelle zu greifen

Hallo
vielleicht kann mir ja irgendjemand helfen - ich bin einfach zu "doof"
ich mache eine Sicherheitskopie beim speichern

code:
Const FOLDER_PATH As String = "J:\Arbeit\Sicherheitskopie\"
With ThisWorkbook
strFilename = Left$(.Name, InStrRev(.Name, ".") - 1)
strFilename = "Kopie von " & strFilename & Format(Now, "_yyyy-mm-dd_") & _
Mid$(.Name, InStrRev(.Name, "."))
Call .SaveCopyAs(FOLDER_PATH & strFilename)
End With