Cycle through Variables
 

Hello,
I am trying to think of a way that I could loop through a range of defined
variables. Perhaps I am approaching this the wrong way so any suggestions
would be greatly appreciated. Basically what I am trying to do is shown
below.

Thanks in advance!
'****
Dim SourceFile As String, SourcePath As String, sFile As String
Dim DestFile As String, DestPath As String, dFile As String
Dim r As Long

SourcePath = "I:\"
DestPath = "C:\"

fname1 = "RS_2626(Z)_1YR.pdf"
fname2 = "RS_2626(Z)_2YR.pdf"
fname3 = "RS_2626(Z)_3YR.pdf"
fname4 = "RS_2626(Z)_4YR.pdf"
fname5 = "RS_4501(Z)_1YR.pdf"
fname6 = "RS_4501(Z)_2YR.pdf"
fname7 = "RS_4501(Z)_3YR.pdf"

'****Loop file names to File Var

For r = 1 To 7 Step 1

sFile = fname & r

'*****Copy File **********
SourceFile = SourcePath & sFile
DestFile = DestPath & sFile

FileCopy SourceFile, DestFile
'****End Copy *********

Next r