Este fórum está sendo desativado

[Campolino]

Tenho uma pasta de trabalho com dezenas de abas, algumas delas chamam um formulário, ou seja, um formulário serve para várias abas. Após preenche as informações solicitadas nesse formulário necessito retornar a aba que o chamou.
Como faço para garantir esse retorno? Quando eu coloco o codenome não há probema, porém ele vária. Então pensei em usar ActiveSheet.CodeName no entanto não é possível seta-lo Set ws = ActiveSheet.CodeName, gera erro.
Abaixo envio código com codinome de aba HO, assim funciona, porém como falei se for a aba HB que chama então ele retorna para aba errada.

Alguém pode auxiliar-me?


Private Sub Btn_Ok_Click()

Dim ws As Worksheet

Set ws = HO
ws.Select

End sub

[osvaldomp]

Experimente ~~~> Set ws = ActiveSheet

[Campolino]

Ola, Osvaldo
Não é possível usar - Set ws = ActiveSheet
Dá erro

[osvaldomp]

Código: Selecionar todos

Sub teste()
 Dim ws As Worksheet
  Set ws = ActiveSheet
  'rode o código via F8 e neste ponto mude manualmente a planilha ativa, _
   em seguida continue a rodar o código
  ws.Activate
End Sub

Se você ainda assim não conseguir então disponibilize o seu arquivo Excel.

[Campolino]

Osvaldo
Obrigado
Consegui.