Pregunta para Luis Mondelo!

Luis. La otra vez me hiciste esta macro para imprimir:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$35" Then

ActiveSheet.PrintOut copies:=1

End If

End Sub

Pero me di cuenta que no me funciona bien!!. Yo en la misma hoja (objeto) tengo esta otra macro que es para la fecha, es la siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

If Application.Intersect(Target, Target.Parent.Range("B9:B35")) Is Nothing Then Exit Sub

Application.EnableEvents = False

Target.Offset(, 4) = Now

Application.EnableEvents = True

End Sub

Cuando pego la macro, que vos me hiciste en la misma hoja, me dice o me sale un error y me dice que "SE A DETECTADO UN NOMBRE AMBIGUO.

Que sera??. Es el evento Change???

Gracias Luis!!