Private Sub Worksheet_Activate()
Dim getHeight As Single
Dim getWidth As Single
For i = 1 To 10
getHeight = Range("A" + Trim(Str(i))).Height
getWidth = Range(Chr(65 + i) + "1").Width
Me.UsedRange(i, 1) = "Row cm : " + Str(Round((getHeight / 72) * 2.54, 2))
Me.UsedRange(1, i + 1) = Chr(65 + i) + "1 :" + Str(Round((getWidth / 72) * 2.54, 2))
Next
End Sub
Dim getHeight As Single
Dim getWidth As Single
For i = 1 To 10
getHeight = Range("A" + Trim(Str(i))).Height
getWidth = Range(Chr(65 + i) + "1").Width
Me.UsedRange(i, 1) = "Row cm : " + Str(Round((getHeight / 72) * 2.54, 2))
Me.UsedRange(1, i + 1) = Chr(65 + i) + "1 :" + Str(Round((getWidth / 72) * 2.54, 2))
Next
End Sub