Ok, I see what you have done wrong. In design view right click on th
button you created and select properties. Scroll down to OnClick an
then click the "..." button to the right of Event Procedure. This i
roughly what your code looks like at the moment...
Code
-------------------
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
'Only XL 97 supports UserControl Property
On Error Resume Next
oApp.UserControl = True
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub
-------------------
you need to delete the middle part and add the code I sent. Your cod
should look like...
Code
-------------------
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click
Application.FollowHyperlink "C:\Documents and Settings\Template.xls", , True, True
Exit_Command1_Click:
Exit Sub
Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub