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

For Loop: Documents in Application

Introduction to VBA in Microsoft Access

For Each Loop: Cells in Range

Activate vs Select

Adsense

For Loop: Documents in Application

Share this:

Adsense