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!
VBA Code:
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