Actualizar hoja antes de abrir formulario

Como debo hacer para actualizar la hoja Y REFRESCARLA antes de abrir un formulario.

Con el código que adjunto, no presenta los datos actualizados hasta que no cierro el formulario.

Sub auto_open()
'Actualitzación de los datos
x0 = MsgBox("¿Desea actualizar los datos de la hoja?", vbYesNo, "ATENCION")
If x0 = vbYes Then
ActiveWorkbook.RefreshAll
End If
UserForm1.Show
End Sub

Gracias