Sub FlatFiler() 
    Dim Addr, Space, CCC, SCC, CBN, SC, CurrRow, LastRow 
    Sheets("Revised").Select 
    Space = Chr( 32 ) 
    Close # 1  
    Open "FlatFile" & Application.Text(Now(), "mmdd") & ".TXT" For Output As # 1  
    LastRow = Application.CountA(ActiveSheet.Range("A:A")) 
    For CurrRow =  1  To LastRow 
        Addr = Right(Cells(CurrRow,  1 ),  1 ) 
        CCC = Space & Space & Cells(CurrRow,  3 )' Pad with 2 spaces 
        SCC = Space & Space & Cells(CurrRow,  5 )' Pad with 2 spaces 
        CBN = Cells(CurrRow,  7 ) 
        SC = Cells(CurrRow,  9 ) 
    Print # 1 , Addr; Space; CCC; Space; SCC; Space; CBN; Space; SC 
    Next 
    Close # 1  
    MsgBox "Done ------------------>" 
End Sub