Hyperlink causes workbook to open minimized

[snowsride]

I have created a hyperlink on a form to open a spreadsheet but although Excel opens maximized the workbook is minimized. I have tried including some code in the Open_Workbook event : ActiveWindow.WindowState = xlMaximized but it has no effect.

Any ideas?

Thanks

 

[Oldsoftboss]

I store the path in a field and use a cmdButton to open Excel:

Private Sub ViewCalcSheet_Click()
On Error GoTo Err_ViewCalcSheet
Dim XL As Object
Set XL = CreateObject("Excel.Application")

If IsNull(Me.QuotePath) Then
MsgBox "You haven't Attached a Calculation File", , " Service Operations"
Else

With XL.Application
.Visible = True
.workbooks.Open Me.QuotePath

End With

Set XL = Nothing

End If

Exit_ViewCalcSheet_Click:
Exit Sub

Err_ViewCalcSheet:
MsgBox Err.Description, , " Service Operations"
Resume Exit_ViewCalcSheet_Click

End Sub


HTH

Dave

 

[snowsride]

Hyperlink opens workbook minimized

Dave

Thanks for the code will give it a go.

(I think it's apathy not apethy - but who cares!)

 

[Oldsoftboss]

Dave

Thanks for the code will give it a go.

(I think it's apathy not apethy - but who cares!)

(I really do care!)



.