Error de compilación:Se ha detectadoun nombre ambi

Los nombres de procedimientos deben ser todos diferentes para que el compilador sepa donde dirigirse en cada momento. Para solucionar tu caso puedes hacer:
1. Dejar el primer sub tal como está para que se ejecute cuando se produzca el evento Change del objeto Worksheet
2. dentro de este sub crear una llamada "PasarAMayúsculas" (por ejemplo)
3. Crear un procedimiento sub tal como:
sub PasarAMayusculas ()
    'aquí el código del otro sub
end sub
Si tienes problemas puedes pasarme el fichero a
<h2>vorkos@gmail.com</h2>
y le echaré un vistazo.

Prueba con el siguiente código; hace lo siguiente:
1. insertas cualquier valor en $G$7
2. se activa el evento SelecetionChange. Capturo el valor de la celda que se ha modificado.
3. se dispara el evento change de la hoja, filtro el valor de la celda que me interesa (G7) para que ejecute 2 acciones: a) poner en A1, el valor de la fecha actual y b) ejecuta el procedimiento PonerEnMayusculas.
 
dim celda as string
dim cambiado as boolean
private sub worksheet_change(...
if celda="$G$7" and cambiado=true then
  cells(1,1).value=date
  PonerEnMayusculas(celda)
end if
end sub
private sub worksheet_selectionchange(...
celda=activecell.address
cambiado=true
end sub
sub PonerEnMayusculas(byval posicion as string)
  range(posicion).value=ucase$(range(posicion).value)
end sub
Es decir aprovecha un evento para ejecutar varias acciones, cada una de ellas encapsulada en un sub diferente.
Espero que te sirva como idea... 

Pásame tu dirección de e-mail. Te enviaré una fichero demo.

OK. Te he enviado una demo a tu dirección