Button Size as s Cell Size?

Sub a()


Dim s1 As String
Dim I1 As String
Dim w As Double
Dim h As Double


s1 = "Sheet1"   'name of sheet you wish to use...
Sheets(s1).Select


10
e = 0
I1 = InputBox("Which Cell Do You wish to use as size template?  Enter as cell ref = ie A1", "Cell Dimension", "A1")
If I1 = Cancel Then GoTo 10
On Error GoTo InvalidRange:
With Range(I1)
    w = .Width
    h = .Height
End With
If e = 1 Then GoTo 10


Dim obj As Object
For Each obj In ActiveSheet.OLEObjects
If obj.OLEType = 2 Then
    With obj
        .Width = w
        .Height = h
    End With
End If
Next obj


Exit Sub


InvalidRange:
MsgBox "Invalid Cell Reference Entered", vbCritical, "Error"
e = 1
Resume Next


End Sub