Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Value = "" Then
    Dim Cancel As Boolean
    Dim Linha As String
    Dim DateFormats, DF
    
    Linha = Target.Row
        
    DateFormats = Array("m/d/yyyy", "dd mmmm yyyy")
    
    'If Range("N" & Linha) = "" Then
    
    For Each DF In DateFormats
    
        If DF = Target.NumberFormat Then
            If CalendarFrm.HelpLabel.Caption <> "" Then
                CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
            Else: CalendarFrm.Height = 191
                CalendarFrm.Show
                Cancel = True
            End If
        End If
    
    Next
    
    'End If
    End If
    
End Sub

klarc28

Era só trocar isso

If Range("N" & Linha) = "" Then

por isso

If Target.Value = "" Then

Acho que vou usar BeforerightClick, caso o usuário abrir o calendário e fechar, ele terá que clicar em outra celula e voltar clicar na celula novamente para funcionar.
Só seu tirar o botão X, obrigando a preencher.

Como faço para quando fechar o calendário jogar a seleção da celula para direita ?

Coloquei esse código. mas não funcionou !

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    If CloseMode = 0 Then
        ActiveCell.Offset(0, 1).Select
    End If
End Sub

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

klarc28

Não funcionou, seleção continua na mesma celula

Deu certo ! Até meu código estava certo !
Tinha colocado na Plan e o correto é dentro do código do form

Valeu !