Excel - A macro to open file with Notepad

October 2017


I would like to open a file with Notepad. I have a small macro for this purpose but the problem is that the code opens my file with Word , instead of Notepad.

Sub bloc() 
Dim s As Variant 
Dim i As Integer 

s = Shell("C:\Program Files\Microsoft Office\Office12\WINWORD.EXE C:\Users\Username\Desktop\filename.txt") 


Replace the WINWORD.EXE by notepad.exe:

s = Shell("C:\Program Files\Microsoft Office\Office12\notepad.exe C:\Users\Username\Desktop\filename.txt")
Published by aakai1056. Latest update on May 24, 2012 at 09:13 AM by aakai1056.
This document, titled "Excel - A macro to open file with Notepad," is available under the Creative Commons license. Any copy, reuse, or modification of the content should be sufficiently credited to CCM (ccm.net).