New macro to set all dimensions Units from "in" to "ft"

I managed to create a macro that will change all the dimension units for the open file from "in" to "ft"

Below is the code to use only after you select the dimensions you want to change. I use it in conjunction with a macro that selects all dimensions.

Sub DimensionsToft()

Dim s As Shape

For Each s In ActiveSelection.Shapes

If s.Type = cdrLinearDimensionShape Then
s.Dimension.Linear.Units = cdrDimensionUnitMeters 'this really gets you ft for some reason
End If
Next s
End Sub