Return to Excel from Word Object
 

I have an embedded Word object (a form that works better in Word than Excel).

I inserted a text box with the instruction to click it to activate the Word
form:

Sub WordForm()

Set obj = Sheets("sheet1").OLEObjects("Object 21")
obj.Activate

End Sub

My problem is returning the focus to the Excel worksheet when the user has
finished filling in the form. I'm sure it's pretty simple, but I can't seem
to get anything to work.

Thanks.

Return to Excel from Word Object
 

Dim wdApp As Word.Application
'...
Set wdApp = Nothing

Some other things to try:
word.ActiveDocument.close
word.quit
SET word = nothing

Finally, there is a good example of how to dicsonnect from Word he
http://www.erlandsendata.no/english/...olecontrolword

HTH,
Ryan---

--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.


"Joyce" wrote:

I have an embedded Word object (a form that works better in Word than Excel).

I inserted a text box with the instruction to click it to activate the Word
form:

Sub WordForm()

Set obj = Sheets("sheet1").OLEObjects("Object 21")
obj.Activate

End Sub

My problem is returning the focus to the Excel worksheet when the user has
finished filling in the form. I'm sure it's pretty simple, but I can't seem
to get anything to work.

Thanks.