Bhè a questo punto... uso la funzione qui sotto e abbandono la macro

=SE(A1<>"";MAIUSC.INIZ(TESTO(A1;"gggg"));"")