Descargar datos de un formulario a varias hojas

Carga los valores al activar el formulario...
Private Sub UserForm_Activate()
TextBox1.Text = Sheets("Hoja2").Range("A5").Value
TextBox2.Text = Sheets("Hoja3").Range("A4").Value
TextBox3.Text = Sheets("Hoja4").Range("A1").Value
End Sub
Y luego si los cambias los llevas de nuevo a las hojas con un botón..
Private Sub CommandButton1_Click()
Sheets("Hoja2").Range("A5").Value = TextBox1.Text
Sheets("Hoja3").Range("A4").Value = TextBox2.Text
Sheets("Hoja4").Range("A1").Value = TextBox3.Text
End Sub
Éxitos, no olvides calificar...

Al formulario le agregué 3 botones OptionButton con la opción 1, 2 y 3, pero resulta que al cargar el formulario aunque haya seleccionado el botón 1 o 2 siempre me muestra activo el 3.
Los tres botones están asociados a la misma celda y a la misma hoja
Private Sub OptionButton1_Click()
Sheets("Hoja2").Range("A4").Value = "1"
End Sub
Private Sub OptionButton2_Click()
Sheets("Hoja2").Range("A4").Value = "2"
End Sub
Private Sub OptionButton3_Click()
Sheets("Hoja2").Range("A4").Value = "3"
End Sub
y al cargar el formulario agregue
Private Sub UserForm_Activate()
TextBox1.Text = Sheets("Hoja2").Range("A2").Value
TextBox2.Text = Sheets("Hoja3").Range("A2").Value
TextBox3.Text = Sheets("Hoja4").Range("A2").Value
OptionButton1 = Sheets("Hoja2").Range("A4").Value
OptionButton2 = Sheets("Hoja2").Range("A4").Value
OptionButton3 = Sheets("Hoja2").Range("A4").Value
End Sub
Me puedes indicar que está mal
Gracias

Claro al llevarle a los OptionButton el valor que hay en Sheets("Hoja2"). Range("A4"). Value, que es un 1 los optionButton quedan activados... como solo 1 puede estar activo, queda el último.

¿Qué me aconsejas, ya que la idea es que quede el valor 1,2 o 3 de acuerdo a la casilla que haya activado?