Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ActiveCell = Replace(ActiveCell, "?", IIf(Button = 1, UCase(ListBox1), LCase(ListBox1)), , 1)
If InStr(ActiveCell, "?") = 0 Then ListBox1.Visible = False
End Sub