copying data from excel into notepad

I am trying to copy data from an excel sheet and I want to paste it into note pad and save it on c drive. Is there a way to write a macro to do that task? Basically copy the data from excel, then open notepad and paste it there, save the notepad in txt extension on the hard drive.

Thanks it worked fine but if I want to use this script on different computer but it does not have the same reference lib. How can I use it?

the only think I changes is this and the reference library error still coming up.

Sub MakeTextFile()

'*** change dimension to use late binding ***
Dim FSO As Scripting.FileSystemObject
Dim TextStr As Object 'TextStr As Scripting.TextStream

Dim Rng As Range

'*** use create object to create a FileSystemObject ***
'Set FSO = New Scripting.FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

'*** Open a text file for appending ***
'*** if it does not already exist, then create it ***
ForAppending = 8
Set TextStr = FSO.OpenTextFile(Filename:="C:\MyFile.txt", _
IOMode:=ForAppending, create:=True)

For Each Rng In Range("A1:A10")
If Rng.Value <> "" Then
TextStr.WriteLine Text:="The Value In: " & _
Rng.Address(False, False) & " is: " & Rng.Value
End If
Next Rng


TextStr.Close
Set FSO = Nothing


End Sub

I am not sure what you mean by Change all strings the actual code that I use is below.

'*** change dimension to use late binding ***
Dim FSO As Scripting.FileSystemObject
Dim TextStr As Scripting.TextStream
Dim Rng As Range

'*** use create object to create a FileSystemObject ***
'Set FSO = New Scripting.FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

'*** Open a text file for appending ***
'*** if it does not already exist, then create it ***
ForAppending = 8
Set TextStr = FSO.OpenTextFile(Filename:=SheetName & ".kml", _
IOMode:=ForAppending, create:=True)
ActiveWorkbook.Worksheets("Output").Activate
For Each Rng In Range("A1:A65000")
If Rng.Value <> "" Then
TextStr.WriteLine Text:=Rng.Value
End If
Next Rng

TextStr.Close
Set FSO = Nothing

still getting the error "Can't Find project Library"
I updated my code to reflect what you have

'*** change dimension to use late binding ***
Dim FSO As Scripting.FileSystemObject
Dim TextStr As Scripting.TextStream
Dim Rng As Range

'*** use create object to create a FileSystemObject ***
Set FSO = New Scripting.FileSystemObject

'*** Open a text file for appending ***
'*** if it does not already exist, then create it ***
ForAppending = 8
Set TextStr = FSO.OpenTextFile(Filename:=SheetName & ".kml", _
IOMode:=ForAppending, create:=True)
ActiveWorkbook.Worksheets("Output").Activate
For Each Rng In Range("A1:A65000")
If Rng.Value <> "" Then
TextStr.WriteLine Text:=Rng.Value
End If
Next Rng

TextStr.Close
Set FSO = Nothing

Thank you so much for all your help. The script works really well.