tem como sim, para isto vamos criar um ComboBox temporário para interagir, pois, precisamos de um componente editável para isto e a Lista não é editável! Mãos a obra! 1. Crie uma lista qualquer com algumas opções em Maiúsculo e Minúsculo (que é seu caso). 2. Agora, abra a Aba Desenvolvedor (se não estiver disponível, Abra o Menu Arquivo/Opções/Personalize a Faixa de Opções). Insira em qualquer local um **Controle ActiveX ComboBox** e altere seu nome para **ComboBoxTemp**. 3. Ainda na aba Desenvolvedor, clique sobre o botão Visual Basic, de um clique duplo sobre a planilha onde esta o componente e a lista (atenção, é importante estar no local correto) e adicione (copie e cole) este código! > Option Explicit > > > Private Sub ComboBoxTemp_KeyDown(ByVal _ > KeyCode As MSForms.ReturnInteger, _ > ByVal Shift As Integer) > > 'Ocultar caixa de combinação e mover a próxima célula com Enter e Tab > Select Case KeyCode > Case 9 > ActiveCell.Offset(0, 1).Activate > Case 13 > ActiveCell.Offset(1, 0).Activate > Case Else > 'Nada > End Select > > End Sub > > Private Sub Worksheet_SelectionChange(ByVal Target As Range) > Dim str As String > Dim cboTemp As OLEObject > Dim ws As Worksheet > Dim wsList As Worksheet > > Set ws = ActiveSheet > Set wsList = Sheets(Me.Name) > Application.EnableEvents = False > Application.ScreenUpdating = False > > If Application.CutCopyMode Then > 'Permite copiar e colar na planilha > GoTo errHandler > End If > > Set cboTemp = ws.OLEObjects("ComboBoxTemp") > On Error Resume Next > With cboTemp > .Top = 10 > .Left = 10 > .Width = 0 > .ListFillRange = "" > .LinkedCell = "" > .Visible = False > .Value = "" > End With > > On Error GoTo errHandler > If Target.Validation.Type = 3 Then > Application.EnableEvents = False > str = Target.Validation.Formula1 > str = Right(str, Len(str) - 1) > With cboTemp > .Visible = True > .Left = Target.Left > .Top = Target.Top > .Width = Target.Width + 15 > .Height = Target.Height + 5 > .ListFillRange = str > .LinkedCell = Target.Address > End With > cboTemp.Activate > > 'Abrir a lista suspensa automaticamente > Me.ComboBoxTemp.DropDown > Me.ComboBoxTemp.MatchEntry = fmMatchEntryNone 'Aqui faz acontecer o que você deseja > Me.ComboBoxTemp.AutoWordSelect = False > End If > > errHandler: > Application.ScreenUpdating = True > Application.EnableEvents = True > Exit Sub > > End Sub Feche o Visual Basic, onde a Lista foi criada será substituída pelo ComboBox! Faça os testes, aguardo o feedback!