Excel - Ett makro för att öppna filen med anteckningsblock

Problem

Jag skulle vilja öppna en fil med anteckningsblock. Jag har ett litet makro för detta ändamål men problemet är att koden öppnar min fil med Word istället för Anteckningar.

 Subbloc () Dimma s Som variant Dim i som heltal s = Shell ("C: \ Program Files \ Microsoft Office \ Office12 \ WINWORD.EXE C: \ Användare \ Användarnamn \ Desktop \ filename.txt") 

Lösning

Byt WINWORD.EXE av notepad.exe:

 s = Shell ("C: \ Program Files \ Microsoft Office \ Office12 \ notepad.exe C: \ Användare \ Användarnamn \ Desktop \ filename.txt")