Sub changesquare()
Sheets("IZEN").activate
ActiveSheet.Shapes("izensquare").Select
Selection.ShapeRange.ScaleHeight Range("f4").Value, msoFalse,
msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth Range("d4").Value, msoFalse,
msoScaleFromTopLeft
Range("a1").Select
End Sub

this changes the object by a percentage, how do i go about changing the size
to like inches, if in f4 it says 5 have it 5inches, not 500% of current size

thanks in advance