Copy selection and save as a .bat file

Hi guys,
Hoping someone can help me with this. I am needing to get some codes from Excel in several rows and save that as a batch file. Below is what I have so far. I need to be able to copy the selection put it in text file and save as file.bat format.

Sub MakeRows()

' Find the last row of data

LastRow = Range("A65536").End(xlUp).Row


' Autofill the formula for each row of HTAG numbers

Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B" & LastRow)
' Selects the range of rows
Range("B1:B" & LastRow).Select

***I need to save this in a file called file.bat***


End Sub

I greatly appreciate any help you can give me.

Thanks

Please Login or Register  to view this content.

AlphaFrog,
You are a lifesaver. This worked like a charm and I am grateful to you. You have no idea how much easier this makes my life. Thank you so much.