Seleccionar un rango en un macro

Hola Experto
No tengo mucha experiencia en macros pero tengo que hacer esto y me parece es la única manera...
Tengo el siguiente macro para salvar una rango a una archivo de texto, todo funciona de lo mejor, pero lo que quisiera es poder YO seleccionar el rango que quiero salvar y no el que el macro tiene ("B5:B100"), el macro es el siguiente
Sub exportar()
'exporta un rango de celdas resultando col de datos
Dim FileSysObj As Object
Dim ArchivoTxt As Object
Dim AreaTexto
AreaTexto = ActiveSheet.Range("B5:B100").Value
Set FileSysObj = CreateObject("Scripting.FileSystemobject")
Set ArchivoTxt = FileSysObj.CreateTextFile("C:\Ejemplo.txt", True)
'recorre el rango a copiar
Dim celda
For Each celda In AreaTexto
ArchivoTxt.WriteLine celda
Next
ArchivoTxt.Close
End Sub
Saludos,