Macro to open Notepad

[gavindowding]

Hi, i'm trying to write a macro that will open notepad and then copy column A into it then save as a certain filename

But i dont now where to start!

Thanks

 

[Deepan]

can anyone help me to open the notepad via path assigned in the string my code is below...

dim dinesh,deepan,fpath as string

DAT = Date$
TIM = Format(Time, "hh-mm-ss")
Sheets("ciq").Select
FNAM = Range("A2").Value
Sheets("CMD").Select
FPATH = Application.ActiveWorkbook.Path
deepan = "\" + FNAM + "_" + DAT + "_" + TIM + ".txt"
ExportToTextFile FNAME:=FPATH & deepan, Sep:=";", _
SelectionOnly:=False, AppendData:=True
dinesh = FPATH & deepan
Shell "notepad.exe ""dinesh""", vbNormalNoFocus