Macro para generar archivo .bat

Buenas Tardes.
Tengo una macro que me pasa una información de un libro excel a un notepad, como puedo desde la macro guardar este notepad en un archivo .bat la finalidad del .bat es cambiar el nombre a los archivos de una ruta específica, como puedo ademas ejecutar el .bat desde la misma macro.
el código de la macro es:

----------------
Sub Etiquetar()
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.ScreenUpdating = False
ARCHIVO = ActiveWorkbook.Name
Nom = "Etiquetar"
Sheets("Criterios").Select
Range("B2").Select
Selection.End(xlDown).Select
cant_fil = Selection.Row
With Range(Cells(2, 8), Cells(cant_fil, 8))
.Formula = _
"=CONCATENATE(""RENAME "",R1C7,RC[-2],""\"",RC[-6],"".mp3"",R1C7,"" "",RC[-5],""_"",RC[-4],""_"",RC[-3],"".mp3"")"
.Value = .Value
End With
reporte = ActiveWorkbook.Name
Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Shell "notepad.exe", vbNormalFocus
SendKeys "^V"
'Windows(reporte).Close
End Sub
---------------------------
el código del .bat es:
RENAME "\\ Mzlsdc \ telefónica$ \ GRABACIONES \ Solicitadas a Sistemas \ 15052013 \ 15027564.mp3" 69503513_91071884_13052013.mp3

RENAME \\ ruta del archivo \ nombre del archivo . Extensión del archivo (espacio) nuevo nombre del archivo.extension del archivo

gracias por la colaboración