This macro will do the calculations for you.
Data begins in cell A1 and must be in the format
you provided, i.e. "4 x 4 x 8". Results are put in
columns B, C & D.
Sub Macro1()
Dim MeasurmentsInFeet
Dim j As Integer, k As Integer
j = 1
With Sheets("Sheet1")
Do While .Cells(j, 1).Value <> ""
MeasurmentsInFeet = Split(.Cells(j, 1).Value, "x")
For k = 0 To UBound(MeasurmentsInFeet)
.Cells(j, k + 2).Value = CInt(MeasurmentsInFeet(k)) * 12
Next
Set MeasurmentsInFeet = Nothing
j = j + 1
Loop
End With
End Sub
Bookmarks