Sub CFD()
Range("A2").Select
If Range("A2") <> "" Then
    ActiveWorkbook.SaveAs Filename:= _
    "P:\CET - e\TL Monthly Reports\TL Reports\" & Range("A2").Value
End If
Range("A3").Select
If Range("A3") <> "" Then
    ActiveWorkbook.SaveAs Filename:= _
    "P:\CET - e\TL Monthly Reports\TL Reports\" & Range("A3").Value
End If
    Range("A4").Select
If Range("A4") <> "" Then
    ActiveWorkbook.SaveAs Filename:= _
    "P:\CET - e\TL Monthly Reports\TL Reports\" & Range("A4").Value
End If
    Range("A5").Select
If Range("A5") <> "" Then
    ActiveWorkbook.SaveAs Filename:= _
    "P:\CET - e\TL Monthly Reports\TL Reports\" & Range("A5").Value
End If
Range("A6").Select
If Range("A6") <> "" Then
    ActiveWorkbook.SaveAs Filename:= _
    "P:\CET - e\TL Monthly Reports\TL Reports\" & Range("A6").Value
End If
End Sub
I am continuing on from the guy who used to do this job before and this code above runs all the way to a1000 and it looks like the previous guys has just repeated the above again and again . is there anyway to just make this run until it hits a blank cell in coloum A.