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.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![]()