Foro Excel

Hola, a raíz de un tema en el foro Excel, pongo una macro que como lo indica el título muestra en un msgbox los archivos abiertos en MS Word

Sub ArchivosAbiertosDeWord()
ON Error Resume Next
Dim WordApp, i As Integer
Set WordApp = GetObject(, "Word.Application")
If TypeName(WordApp) <> "Empty" Then
MsgBox "Word Está Abierto", 64, ""
For i = 1 To WordApp.documents.Count
MsgBox WordApp.documents(i).Name, 64, ""
Next i
Else
MsgBox "Word no está abierto", 64, ""
End If
End Sub