For Loop: Documents in Application

Sub ForLoop_DocumentsInApplication()
    Dim i as Integer
    For i = 1 To Application.Documents.Count
        MsgBox Application.Documents(i).Name 'Index is 1 based
    Next i
End Sub

For Loop: Documents in Application

Copy Cells From One Range to Another Without Using Selections

Introduction to VBA

Introduction to OLE Automation

Introduction to VBA in Microsoft Outlook

Copy Cells From One Range to Another Without Using Selections

Get the Row and Column Number of the Last Cell Containing Data

Copy a Folder and all of its Contents

Compact and Repair Access Databases by Searching Directories and Sub-Folders

Introduction to VBA

For Each Loop: Worksheets in Workbook

Merging Multiple Workbooks Together by Searching Directories and Sub-Folders

Turning on the Developer Ribbon Tab in Outlook 2007

Adsense

For Loop: Documents in Application

Share this:

Adsense