This works for VBA. Doesn't seem to want to work for VB6. From VB6 just trying to Quit the WORD application if it is running (it's part of an error routine). I'm assuming that this is some syntaxical thing if anyone can help. Dave
edit: Quit is better than Kill
[vba]
Dim Objwordapp As Object
On Error Resume Next
Set Objwordapp = GetObject(, "word.application") 'didn't work
Set Objwordapp = GetObject("WORD.APPLICATION") 'didn't work
If Err.Number = 0 Then
Objwordapp.Quit 'didn't work
With Objwordapp
.Application.Quit
End With
End If
On Error GoTo 0
Set Objwordapp = Nothing
[/vba]