Opening a Template file from Excel VBA

[Bobkat]

I have been trying to open a template from Excell using VBA code and finally got the code below to work for me.

 

Only problem is that it opens the template file twice.

 

Can anyone see why it woulf be doing that?

 

Cheers

Bob

 

Option Explicit

Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Function OpenAnyFile(FileToOpen As String)
    
   Call ShellExecute(0, "Open", FileToOpen & vbNullString, _
   vbNullString, vbNullString, 1)
    
End Function

Sub Example()
    
   Call OpenAnyFile("I:\Support\Drafting\Drawing Templates\Skid.dwt")
    
End Sub

Edited December 1, 2012 by Bobkat
Oops, that better?

[SLW210]

Bobkat,

 

Please read the CODE POSTING GUIDELINES and edit your post to include Code Tags.