Controls Resize and Resize Font in Controls in a Worksheet

'=============================================================================
'- SAVE LISTBOX (CONTROLS TOOLBAR) SELECTIONS TO WORKSHEET CELLS A1 DOWN
'- FOR LATER RECOVERY
'- Brian Baulsom August 2004
'=============================================================================
Dim MyBox As Object
Dim ToRow As Long
Dim ListBoxItem As Integer
'=============================================================================
'- SAVE SELECTION INFO
'=============================================================================
Sub ReadBox()
    ToRow = 1
    Set MyBox = ActiveSheet.ListBox1
    '-------------------------------------------------------------------------
    '- LOOP LISTBOX ITEMS
    For ListBoxItem = 0 To MyBox.ListCount - 1
        ActiveSheet.Cells(ToRow, 1).Value = MyBox.Selected(ListBoxItem)
        ToRow = ToRow + 1
    Next
End Sub
'=============================================================================
'- READ CELLS & RE-SELECT ITEMS
'=============================================================================
Sub ReSelect()
    ToRow = 1
    Set MyBox = ActiveSheet.ListBox1
    '-------------------------------------------------------------------------
    '- LOOP LISTBOX ITEMS
    For ListBoxItem = 0 To MyBox.ListCount - 1
        MyBox.Selected(ListBoxItem) = ActiveSheet.Cells(ToRow, 1).Value
        ToRow = ToRow + 1
    Next
End Sub
'-----------------------------------------------------------------------------