Macro PDB_PutFiles

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub PDB_PutFiles()

'exports PDB files formated by "getPDB"

    For i = 1 To 250 Step 1

        If IsEmpty(Sheets("Files").Cells(i, 1)) Then Exit For

            aaa = Sheets("Files").Cells(i, 1)
            Sheets(aaa).Select
            ActiveWorkbook.SaveAs FileName:=aaa, FileFormat:= _
                xlTextPrinter, CreateBackup:=False
    Next i

End Sub