Pessoal bom dia!

A macro abaixo , oculta ou mostra checkbox em minha planilha, o que eu quero é pegar o valor dos checkboxes que estão marcados e jogar em uma outra sheet(Respostas), no total minha planilha tem 25 checkbox, eles serao usados em aproximadamente 150 perguntas, logo a cada vez que eu ticar um checkbox ele deve mandar a resposta pra uma célula diferente!!

Sub MostrarOcultar_Checkbox()

If Range("obs_1").Value <> Empty Then
For x = 1 To 5
ActiveSheet.Shapes("CheckBox" & x).Visible = True
Next x
End If

If Range("obs_2").Value <> Empty Then
For x = 6 To 10
ActiveSheet.Shapes("CheckBox" & x).Visible = True
Next x
Else
For x = 6 To 10
ActiveSheet.Shapes("CheckBox" & x).Visible = False
Next x
End If

If Range("obs_3").Value <> Empty Then
For x = 11 To 15
ActiveSheet.Shapes("CheckBox" & x).Visible = True
Next x
Else
For x = 11 To 15
ActiveSheet.Shapes("CheckBox" & x).Visible = False
Next x
End If

If Range("obs_4").Value <> Empty Then
For x = 16 To 20
ActiveSheet.Shapes("CheckBox" & x).Visible = True
Next x
Else
For x = 16 To 20
ActiveSheet.Shapes("CheckBox" & x).Visible = False
Next x
End If

If Range("obs_5").Value <> Empty Then
For x = 21 To 25
ActiveSheet.Shapes("CheckBox" & x).Visible = True
Next x
Else
For x = 21 To 25
ActiveSheet.Shapes("CheckBox" & x).Visible = False
Next x
End If

End Sub