Tal vez esto te sirva :
Sub FormatoCelda(ByVal Celda As String)
Range(Celda).Font.Underline = xlUnderlineStyleSingle
Range(Celda).Font.Bold = True
End Sub
Sub FormatoCelda(ByVal Celda As String)
Range(Celda).Font.Underline = xlUnderlineStyleSingle
Range(Celda).Font.Bold = True
End Sub
En éstaesta función solo, sólo tienes que pasarle como parámetro el nombre de la celda, donde pondrás el resultado, por ejemplo "A1"