Puedes usar un Sub con un parámetro. Por ejemplo:
Código vb:
Ver originalSub 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: