Como puedo hacer para que dos funciones no me causen problemas

[6luishao6]

Hola tengo una pregunta, tengo un archivo que se repite una macro:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI Then Cancel = True

End Sub

y en el mismo libro uso el mismo codigo:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

CeldaAnterior.Interior.Color = ColorAnterior

End Sub

Como puedo hacer juntar los 2 ya que los 2 codigos me causan conflicto de macros, o lo subo mi archivo para que lo vean mejor.

[juliosolis]

Hola 6luishao6:

Debes subir tu archivo del ejemplo para poder apoyarte y así mismo tengas una respuesta pronta del foro.

Saludos.

[6luishao6]

ok amigo lo hare

[6luishao6]

Hola la función que no me funciona esta con: ' de color verde es hay donde me tira el error de tener el mismo nombre, aquí el archivo: https://mega.co.nz/#!ehUU3aTK!aQ07FEGhg3PE9tWp7pcnkUvUPoKgwP-9o9R_rN7If1U

Se encuentra en: ThisWorkbook