Poste a planilha para ajudarmos melhor.

vonzuben,

Experimente trocar esta rotina pela que deixo abaixo:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   
    If Sheets("Nome").Activate = True Then
   
        Cells(1,2).Select
       
    Else
   
        Cells(1,3).Select
   
    End If
       
End Sub

Espero ter ajudado.

Abs

Tenho esse código que pula 1 vez para o lado direito de qualquer guia ao fechar o form

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
        ActiveCell.Offset(0, 1).Select
        
End Sub

Só que eu quero que pula 2 x para o lado direito numa única guia ( Nome ) especifica e o restante das guias 1 x

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    
if activesheet.name= "NomeDaPlanilha" then
        ActiveCell.Offset(0, 2).Select

        else
 ActiveCell.Offset(0, 1).Select
end if
End Sub

klarc28

Funcionou, obrigado !
Não conhecia activesheet.name