I want to repeat the below code on range of cells on column A and want the code discard when reached empty cell. and change the path of saving the files to F:\

N.B: The below code work perfictly with one cell and save the file in my documents.

Sub Macro1()
Dim WSName As String, CName As String, Directory As String, savename As String
WSName = "Modified PM List (Readings)"
CName = ("C5")

ChDir "F:\New Test"
Workbooks.Open Filename:="F:\New\Checklist.xls"
Windows("Files2Excel.xls").Activate
Range("A3").Select
Selection.Copy
Windows("Checklist.xls").Activate
Range("S3:U3").Select
ActiveSheet.Paste
'Windows("Files2Excel.xls").Activate
Application.CutCopyMode = False

Windows("Checklist.xls").Activate

Application.Run "'Checklist.xls'!All"
Windows("Checklist.xls").Activate
'Thisfile = Range("S5:U5").Value
Directory = "F:\New\"
ActiveWorkbook.SaveAs Filename:=Sheets(WSName).Range(CName).Text
If Directory = "" Then Directory = CurDir & "\"

ActiveWindow.Close
End Sub