Re: Excel Tabs

To start Word:

Sub StartWord()
Dim wdApp as Object
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
End Sub

To start Outlook (late binding):

Sub StartOutlook()
Dim olApp as Object
Set olApp = CreateObject("Outlook.Application")
olApp.Visible = True
End Sub

To select another work***:

Worksheets("Sheet1").Range("A1").Select

Replace "Sheet1" with the actual name of the sheet you want to view.

All of this code should be placed in a standard module (see
http://www.rondebruin.nl/code.htm for placement assistance).

HTH,
JP

On Apr 4, 10:45 pm, Creating a Word shortcut in Excel
<CreatingaWordshortcutinEx...@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:
Yes, I mean open. Thanks


.

Loading