when i run this macro , im not able to use the personal in that sheet. help please

[prasadyanz]

Sub toopen()
'
' toopen Macro
'
Dim objXL
Set objXL = CreateObject("Excel.Application")
With objXL
.Workbooks.Open ("D:\B15-FATIGUE\models\optimized\sheet9.xlsx")
.Visible = True 'Might not want this
End With
Set objXL = Nothing

End Sub

 

[HaHoBe]

Hi, prasadyanz,

please consider to wrap your procedure with code-tags for better readability.

If you create a new instance of Excel like you do the personal workbook is blocked by the first instance. So you would need to open the workbook in the first/only instance of Excel or maybe rely on an AddIn for the code as opposed to the personal macro workbook.

Ciao,
Holger

 

[prasadyanz]

thanks Holger .