vba fejlmeddelse

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 i gå så kommer den og siger: File not found: VBA6.DLL.

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