vba fejlmeddelse

hej vil lige høre om nogle kan hjælpe mig med en fejlmeddelse jeg er begyndt at få.

Hej

Jeg har et excel ark hvor jeg bruger denne her vba:

Sub ÅbnOgKopierCellerTilNotespad()

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run ("notepad")
Application.Wait (Now + TimeValue("0:00:01"))

Dim mycells
mycells = Range("B7:B30").Value

For Each c In mycells
  WshShell.SendKeys c
  WshShell.SendKeys "{ENTER}"
Next

End Sub

og den har virket fint end til for får dage siden, der begyndte så at kommer og siger: File not found: VBA6.DLL.

Jeg har så et andet ark hvor jeg også bruger dette vba det åbner en notepad og kopier det i områet B7 til B30 og der virker det fint, er der noget der kan forklare mig hvorfor den  kommer op og diger "File not found: VBA6.DLL"?