Increase Font Size in a List Box

[Phil H]

Is there a way to increase font size in a List Box created in Data Validation?

[Phil H]

Understand from other forums, this cannot be done. A workaround is to zoom up the worksheet when any DV cell is selected. The following code (from Contextures http://www.contextures.com/xlDataVal08.html#Font ) works - it zooms up, then back down to whatever screen sizes are inserted in the code. The only issue is the selected cell needs to be placed center screen, and remain there after a selection is made from the dropdown list. Can someone modify this code to make that happen?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lZoom As Long
Dim lZoomDV As Long
Dim lDVType As Long
lZoom = 100
lZoomDV = 120
lDVType = 0

Application.EnableEvents = False
On Error Resume Next
lDVType = Target.Validation.Type

On Error GoTo errHandler
If lDVType <> 3 Then
With ActiveWindow
If .Zoom <> lZoom Then
.Zoom = lZoom
End If
End With
Else
With ActiveWindow
If .Zoom <> lZoomDV Then
.Zoom = lZoomDV
End If
End With
End If

exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
GoTo exitHandler
End Sub

[Phil H]

Here is the best solution - using a combo box (Again, from contextures http://www.contextures.com/xlDataVal14.html ). This approach puts a combo box (properties can be changed to suit) in any selected DV cell, and with additional code at the bottom, will dismiss the combo box when the next cell is selected. Remember to change the combobox name in the code.