Actualizar 3 hojas al abrir una hoja

¿Pero qué quieres actualizar de las hojas 1,2,3?

¿Tienes tablas dinámicas o fórmulas o qué quieres actualizar?

Las tres hojas se actualiza por meses la venta diaria.

En su propia página tiene:

Private Sub Worksheet_Activate()
ActiveSheet.Unprotect Password:="1"
On Error Resume Next
Application.ScreenUpdating = False
col_mes_actual = Format([r1], "m") + 4
For rw = 7 To Range("c65536").End(xlUp).Row
If Cells(rw, 3) <> "" Then
If col_mes_actual = 5 Then
Cells(rw, 5) = Cells(rw, 4) * 1
Else
Cells(rw, col_mes_actual) = Cells(rw, 4) - Application.Sum(Range(Cells(rw, 5), Cells(rw, col_mes_actual - 1)))
End If
End If
Next rw
Application.ScreenUpdating = True
ActiveSheet.ScrollArea = "A1:T110"
ActiveSheet.Protect Password:="1"
End Sub

Y es necesario abrirlas una por una para su actualización, y de lo que trato es que se actualicen sin abrirlas, al abrir la hoja4.

Gracias por atenderme tan rápido, eres muy amable

Pon el siguiente evento en tu hoja4

Private Sub Worksheet_Activate()
'Por.Dante Amor
    Sheets("Hoja1").Select
    Sheets("Hoja2").Select
    Sheets("Hoja3").Select
    Application.EnableEvents = False
    Sheets("Hoja4").Select
    Application.EnableEvents = True
End Sub

Mañana que es 1 de enero lo mirare y ya te digo.

Gracias por ser tan amable y rápida tu contestación.

Que Dios te bendiga, y a tu casa.

Fabuloso, perfecto, inmejorable, no puede ser mejor.

Muchísimas gracias por perfección, rapidez y voluntad de ayudar-

Que Dios te bendiga