View the last item in an Activex Listbos

I have 3 Activex listboxes on 1 worksheet. When I make them visible, I cannot scroll to the last item in the list. I have searched for a solution, but they all say to change the IntegralHeight, which I have done.

Private Sub Second_gotfocus()
Dim myheight As Long




Ignore = True
With Second
                myheight = .Height
                .IntegralHeight = False
                .Height = myheight
                .IntegralHeight = True
               
            End With
Ignore = False
End Sub

Is there something I am missing? Thank you for your time.

Re: View the last item in an Activex Listbos

Thank you for the suggestion. I should have mentioned that I tried that already also, but it did not make a difference.

Re: View the last item in an Activex Listbos

I am working around this currently by adding a blank cell to the end of the named range, but I would prefer not to do it this way.