Copy cell in excel and paste in notepad

[akshat_learningvba]

I need to do the following tasks -

1) If a cell in excel takes a value of 1 (Say - Sheet1, Cell A1) then
2) Copy cell value in another sheet
3) Open txt file
4) Paste the cell value in txt file
5) Save the notepad in the same location as the worksheet

Please let me know how would I do the same