Troque por esta:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
     
     If Target.Count > 1 Then
        Application.EnableEvents = True
     Exit Sub
     
     End If
     
     If Target.Column = 8 Then
          Select Case Target.Value
               Case "Lançar"
                    Call MacroLançar
               Case "Deletar"
                    Call MacroDeletar
          End Select
     End If
    Application.EnableEvents = True
End Sub

Mauro, muito agradecido.

Era isso que eu precisava.