Hello

I've made a macro to help me make 100's of smaller files from a long list.

Basically I copy each line, paste that into a new doc then save that as a
text file.

This is where it 'doesn't work' how I was hoping it to! :-)

Because each time it names the new file, the same name as the original (when
I made the macro) rather than pasting in the new file name.

I have copied the macro below ... where it says:
"100%_Pure_Poison_-_You_Keep_Coming_Back.ram" ... is the file name. This
remains 'constant' and I can't make it paste in the new file name that was
selected on the last copy.

I know little about VB etc and just make macros to speed up repetive tasks

Any advice will be appreciated

TIA ... Mick


Sub ramfile()
'
' ramfile Macro
' Macro recorded 20/08/03 by Mick Fitzpatrick
'
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    Documents.Add Template:= _
        "C:\Program Files\Microsoft Office\Templates\Normal.dot",
NewTemplate:= _
        False
    Selection.paste
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=36
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
    ActiveDocument.SaveAs FileName:= _
        "100%_Pure_Poison_-_You_Keep_Coming_Back.ram",
FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True,
WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False,
SaveAsAOCELetter:= _
        False
    ActiveDocument.Close
End Sub

             Do you want to signoff PCSOFT or just change to
                    Digest mode - visit our web site:
                   http://freepctech.com/pcsoft.shtml