Sub Test() MsgBox "The current top coordinate is: " & ActiveWindow.Top ActiveWindow.Top = ActiveWindow.Top / 2 MsgBox "The new top coordinate is: " & ActiveWindow.TopEnd Sub