CommandButton Question?

[mayoung]

How can I modify this code so it works with Range(“C10:C11”) or if I wanted it to work with Range(“C10:D11”) instead of just Range(“C10”)? Thanks in advance!

Sub CreateCommandButton1()
 
Application.ScreenUpdating = False
 
Dim cBut As OLEObject
Dim ctop#, cleft#, cht#, cwdth#
Dim sht As Worksheet
Dim Btn As OLEObject
On Error Resume Next
Set sht = ThisWorkbook.Worksheets("Sheet1")
Range("C10").Select
With ActiveSheet
.Shapes("MyButton").Delete
End With
With Range("C10")
ctop = .Top
cleft = .Left
cht = .Height
cwdth = .Width
End With
With sht
Set Btn = .OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=cleft, Top:=ctop, Width:=cwdth, Height:=cht)
End With
Btn.Object.Caption = "Format 2 Page Quote"
Btn.Name = "MyButton"
Btn.Object.Font = "Verdana"
Btn.Object.Font.Bold = True
Btn.Object.Font.Size = 10
' Btn.Object.BackColor = &HFF&
Btn.Object.BackColor = &HFF8080
Btn.Object.ForeColor = &HFFFFFF
Btn.Placement = xlMoveAndSize
 
Application.ScreenUpdating = True
End Sub

 

[JoeMo]

Just change the With - End With range you use to set the button's position variables:

With Range("C10:D11")
ctop = .Top
cleft = .Left
cht = .Height
cwdth = .Width
End With