Need help understandig why something works in VBA, and something else doesn't

[Vantom]

These work:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.CommandButton1
        .Top = ActiveWindow.ScrollRow * [COLOR=#ff0000]Rows(ActiveWindow.ScrollRow).Height[/COLOR] - [COLOR=#ff0000]14[/COLOR]
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim intCellHeight As Integer: intCellHeight = Rows(ActiveWindow.ScrollRow).Height
        With ActiveSheet.CommandButton1
            .Top = ActiveWindow.ScrollRow * [COLOR=#ff0000]Rows(ActiveWindow.ScrollRow).Height[/COLOR] - [COLOR=#ff0000]intCellHeight[/COLOR]
        End With
End Sub

These does not:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.CommandButton1
        .Top = ActiveWindow.ScrollRow * [COLOR=#ff0000]14 [/COLOR]- [COLOR=#ff0000]14[/COLOR]
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim intCellHeight As Integer: intCellHeight = Rows(ActiveWindow.ScrollRow).Height
        With ActiveSheet.CommandButton1
            .Top = ActiveWindow.ScrollRow * [COLOR=#ff0000]intCellHeight [/COLOR]- [COLOR=#ff0000]14[/COLOR]
        End With
End Sub

Why is that?

 

[Jonmo1]

Yes, your inititial method was actually still wrong..Barely, just not really noticeable
.Top = ActiveWindow.ScrollRow * Rows(ActiveWindow.ScrollRow).Height - 14

I suggest the most accurate way would be
.Top = ActiveWindow.ScrollRow * Rows(ActiveWindow.ScrollRow).Height - Rows(ActiveWindow.ScrollRow).Height

Or use a variable
MyHeight = Rows(ActiveWindow.ScrollRow).Height
.Top = ActiveWindow.ScrollRow * MyHeight - MyHeight

 

[Jonmo1]

This method is still not bullet proof, because it assumes all rows are the same height.

If you have just 1 row that is of a different height, then it is thrown off.
I would look for other methods of positioning your command button.

 

[Vantom]

'VisibleRange.Top' will get the top, regardless of various row heights etc?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        With ActiveSheet.CommandButton1
            .Top = Windows(1).VisibleRange.Top 
        End With
End Sub

 

[Jonmo1]

Yep, That seems to work.