thank you that works. I am also trying to add the following piece to this loop. This piece will perform the code and print in PDF form and then move onto the next. Any idea where in the above code I would need to place this for it to loop and print one by one in PDF form. Thank you!

   Sheets("FrontEndApp").Select
         Worksheets("OC").ExportAsFixedFormat Type:=xlTypePDF, _
         Filename:=Range("i23").Value, _
         Quality:=xlQualityStandard, _
         IncludeDocProperties:=True, _
         IgnorePrintAreas:=False, _
         OpenAfterPublish:=False