me.saveas con boton

Reemplaza el Me por ActiveWorkBook

"Javier Avila" escribió en el mensaje
news:%
tengo lo siguiente:

Private Sub CmdGuardaNombre_Click()
nom = Range("c2")
Const strCelda As String = "C:\Documents and
Settings\Javier\Escritorio\" 'Directorio donde se almacenarán los libros
Me.SaveAs nom, xlWorkbook
End Sub

Lo que quiero es colocar un boton que cuando se presione me guarde
(guardar como...) un archivo y el nombre lo saque de una celda en
particular he intentado con el codigo de arriba y me da un error 1004
que hay un mal manejo del _workbook, por si acaso el boton está en una
hoja de mi libro que tiene otras macro y lo tengo guardado como
plantilla. gracias de antemano por la ayuda.

Javier Avila
System Adminsitrator

Si se encuentra bien, no se preocupe. Se le pasará.