WindowResize Event Example

This example runs when any workbook window is resized.

Private Sub Workbook_WindowResize(ByVal Wn As Excel.Window)
    Application.StatusBar = Wn.Caption & " resized"
End Sub