Una rutina para varios botones

[David]

Puedes usar un Sub con un parámetro. Por ejemplo:

Código vb:

Sub Prueba(Celda As Range, Valor As String)
    Celda.Value = Valor
End Sub
 

Ese es sólo un ejemplo simple, lo que hace es recibir como parámetro una celda y un valor, y colocar ese valor en la celda. Para llamarlo sería:

Código vb:

Prueba Range("A1"), "Texto"