Obrigado LaerteB, compreendi a situação dos tópicos
estou colocando aqui o código que estava montando, mas parece que estou deixando algo passar
Eu entendi a proposta do código que me disponibilizou porém preciso de algo já predefinido, algo assim:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Rows("8:14").EntireRow.Hidden = False
Else: Rows("8:14").EntireRow.Hidden = True
End If
End Sub

Estou fazendo um preenchimento de formulário e preciso que de acordo com a opção marcada apareça novas linhas...

Boa noite, HOLDYN

Eu acho que tu não compreendeu o que comentei na mensagem anterior..
informei que "...é muito importante você anexar uma planilha de exemplo com dados (fictícios) e
que não seja o projeto inteiro; explicando com as informações necessárias para alcançar o seu objetivo..."

Com isso poderíamos chegar a solução mais rapidamente e sem o "chutômetro" ...

Então como não temos este arquivo exemplo, vamos a uma solução no "chutômetro" (se entendi a sua questão na
última mensagem); abaixo os códigos que farão o que pediu :

Private Sub OptionButton1_Click()

 Planilha1.Select
 
 If OptionButton1.Enabled = True Then
 
  Rows("8:14").EntireRow.Hidden = False  'Reexibi as linhas ocultas

 End If

End Sub


Private Sub OptionButton2_Click()

 Planilha1.Select
 
 If OptionButton2.Enabled = True Then
 
  Rows("8:14").EntireRow.Hidden = True  'Oculta as linhas

 End If

End Sub

Como pode observar utilizei dois OptionButton, 1 para Reexibir e outro para Ocultar as linhas "fixas", conforme mencionou
anteriormente

Espero que estes códigos solucionem a sua questão

Qualquer dúvida estamos aqui

Aguardando sua resposta e seu Feed Back(é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB

Bom dia LaerteB, como era um problema bem simples pensei q não fosse necessário a planilha, mas vou considerar sempre.
Me ajudou muito, única coisa que adicionei no código foi o else, pois precisava que se o botão não estivesse ativo ele ocultasse as linhas
Muito obrigado!

Bom dia, HOLDYN

Que bom que ajudou ... sempre considere o arquivo exemplo, para uma maior rapidez e eficácia na
solução das questões .

Agora tu podes também colocar no "Initialize" as linhas que forem ficar "sempre" ocultas; abaixo o
código para este fim :

Private Sub UserForm_Initialize()

'Oculta linhas 8 e 14 *************
Planilha1.Select
 Rows("8:14").EntireRow.Hidden = True
'**********************************
End Sub

E considere deixar o segundo optionbutton em vez do "else" para ocultar as linhas quando quiser .

Se tiver dúvidas pode contar conosco

Seu Feed Back(é muito importante) ... se foi útil, não esqueça de clicar na "mãozinha"

LaerteB