Locating command button

[jonnynacker]

Hey guys,
have a workbook which will continually hide and unhide command buttons so each time they must be located back to where they are needed. I am fine with locating them to a cell in the " top left corner" using this script for all the command buttons;

Sheet4.CommandButton98.Top = Sheet4.Range("D38").Top
Sheet4.CommandButton98.Left = Sheet4.Range("D38").Left

I want them to be located in the top right though, any suggestions?

 

[shg]

    Dim r As Range

    With Sheet4
        Set r = .Range("D38")
        With .CommandButton98
            .Top = r.Top
            .Left = r.Left + r.Width - .Width
        End With
    End With

 

[JoeMo]

You could use something like this after you determine the correct increment to use:

Sheet4.CommandButton98.IncrementLeft #

where # is the number of points of increment needed to move the button to the right side of the cell (yes, I know its IncrementLeft, but it will move right).

To calibrate you - column width is measured in characters. The default width is 8.43 which is 48 points.

 

[jonnynacker]

brilliant guys, works perfectly. Thank you so much