Sub MakeSquare()
    Dim WPChar As Double
    Dim DInch As Double
    Dim Temp As String

    Temp = InputBox("Height and width in inches?")
    DInch = Val(Temp)
    If DInch > 0 And DInch < 2.5 Then
        For Each c In ActiveWindow.RangeSelection.Columns
            WPChar = c.Width / c.ColumnWidth
            c.ColumnWidth = ((DInch * 72) / WPChar)
        Next c
        For Each r In ActiveWindow.RangeSelection.Rows
            r.RowHeight = (DInch * 72)
        Next r
    End If
End Sub