Active Window- Caption Property
Private Sub CommandButton1_Click()
ActiveWindow.Caption = "Activewindow_Caption_Property"
MsgBox "Activewindow Workbook named as ACTIVEWINDOW CAPTION PROPERTY"
End Sub
Active Window- GridLineColor Property
Private Sub CommandButton1_Click()
ActiveWindow.GridlineColor = RGB(0, 0, 224)
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.GridlineColorIndex = xlColorIndexAutomatic
End Sub
Active Window- Split Property
Private Sub CommandButton1_Click()
ActiveWindow.Split = True
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.Split = False
End Sub
Active Window- Freeze Panes
Private Sub CommandButton1_Click()
ActiveWindow.FreezePanes = True
End Sub
Private Sub CommandButton2_Click()
ActiveWindow.FreezePanes = False
End Sub
Active Window- WindowState Property
Private Sub CommandButton1_Click() ActiveWindow.WindowState = xlMinimized ActiveWindow.WindowState = xlMaximized ActiveWindow.WindowState = xlNormal End Sub