Select All & Copy Cell Contents in Edit Mode using VBA

Hi, I'm new to the forum and not an advanced excel user.

I'm trying to use SendKeys to select all the contents of the active cell copy and paste to Notepad. The reason I want to use SendKeys is so that the cell is in edit mode to keep the formatting I've entered after pasting into Notepad or Word.

Here's what I'm trying but I'm missing the select all & copy step:

Range("A1").Value = ActiveCell.Value
Range("A1").Select
SendKeys "F2"
<<Select ALL & COPY>>
Shell "notepad.exe", vbNormalFocus
SendKeys "^V"

I have basic-midlevel knowledge of programming so I can cut and paste things together in VB, but a little help would be appreciated!

Well, part of the reason I wanted to paste to Notepad is because I need to copy the text to another program with formatting similar to Notepad. I need all the line breaks to appear. So I don't necessarily want to create a new document. I guess ideally I would like to leave out the process of creating a txt file.

I thought perhaps there might be another route, oh well. Thanks anyway!

Sorry for replying twice, I was trying to delete the duplicate post, but I guess that's not an option.