Preguntita

hola, Hermano2 !

... como se hace para poner varias veces esta formula en una misma hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$O$10" Then Exit Sub
Dim Hoja As Worksheet
For Each Hoja In Worksheets
Select Case Hoja.Index
Case 1, 3, 4, 5, 8
Target.Copy Hoja.Range("C10,B15,E20,D35")
End Select
Next Hoja
End Sub
... como hacer... que... en vez de copiar un texto, copiar el resultado de una formula en otra hoja
... y... como hacerlo tambien para poder poner ese codigo varias veces en una hoja...

1.- en el codigo que expones, si se modifica la celda 'O10' de 'la hoja' [donde esta depositado el codigo...
se copia [todo] 'tal cual' -> a las celdas 'C10', 'B15', 'E20' y 'D35' -> de las hojas 1, 3, 4, 5 y 8
[solo toma en cuenta que si el usuario 'las cambia de posicion'... ya no seran... 'las que creias'] <= OJO
2.- supongo que por: '... varias veces esta formula ...' te refieres a que existen otras celdas [ademas de 'O10']
que necesitas copiar -> a otros rangos -> DISTINTOS de 'C10', 'B15', 'E20' y 'D35' -> de las hojas... cuales?
seria conveniente conocer las 'variantes' que se aplicaran a 'las varias veces' que necesitas :D
3.- para cambiar a que en lugar de 'copiar' [exactamente] el contenido de una celda [formulas o constantes]...
y que se 'traslade' [solo] el 'resultado final' [despues de calculada una formula]...
-> invierte la instruccion del 'copiado' y... 'elimina' el metodo 'Copy' [p.e. suponiendo mismos rangos/hojas]...
de -> Target.Copy Hoja.Range("c10,b15,e20,e35")
a -> Hoja.Range("c10,b15,e20,e35") = Target

comentas los datos 'faltantes'?
saludos,
hector.