Messagebox i makro?

Hej!

Nedenstående makro åbner et Worddokument og udfylder lidt data. Jeg ønsker lidt hjælp til at "idiotsikre" den...

Der kan jo ske det, at en anden bruger har det nævnte worddokument åbnet, og derfor kan makroen ikke udføres... Jeg kunne godt tænke mig at der er en messagebox tilknyttet makroen, der stopper den i nævnte tilfælde og fortæller brugeren: "En anden bruger benytter skemaet!"

En der kan hjælpe med det? :o)


Sub OpretTilmeldingsskema()

    Dim y As Word.Application
    Set y = CreateObject("Word.Application")
   
    With y
        .Visible = True
    .Documents.Open Filename:="G:\Espens Vænge\Træningsområdet\Kørsel Ulla-Dorte-Bettina\Tilmeldingsskema-kørsel.doc"
           
        Worksheets("Borgerliste").Range("W6").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Tekst1"
        .Selection.PasteAndFormat (wdPasteDefault)
        Worksheets("Borgerliste").Range("X6").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Tekst2"
        .Selection.PasteAndFormat (wdPasteDefault)
        Worksheets("Borgerliste").Range("Y6").Copy
    .Selection.GoTo What:=wdGoToBookmark, Name:="Tekst3"
        .Selection.PasteAndFormat (wdPasteDefault)
    Application.CutCopyMode = False
        Range("B6").Select
        .Selection.GoTo What:=wdGoToBookmark, Name:="Rulleliste1"

        End With
   
End Sub