Visual Basic - Exel

Hola como estan??

Yo hice una macro en Visual que me guarda cosas a las celdas de una planilla exel, el problema que tengo es que si alguien cambia el nombre del archivo (del archivo xls), se me cae el preograma y tengo que cambiarle el nombre en ("Windows("abril 06.xls").Activate") en este caso el archivo se llama abril pero para cada mes tengo que cambierle el nombre al archivo y dentro del visual.

Existe alguna forma que la dirección donde se guarda sea generica?? o que sea automática? ,que si me cambian el nombre del archivo no se me caiga y por otro lado se puede hacer lo mismo pero dentro de has "hojas" del archivo exel??

Gracias

Aqui una idea para referenciar al libro desde el codigo
ThisWorkbook.Name

Ejemplo:
Sub NombreLibro()
MsgBox ThisWorkbook.Name
End Sub

Listar Hojas ...
Sub ListarHojas()
Dim index As Integer

For index = 1 To ThisWorkbook.Sheets.Count
MsgBox ThisWorkbook.Sheets(index).Name
Next
End Sub

Suerte