Hi Joseph,
When selecting the entities you could also use the filter method just an FYI. The below sub will take the existing active selection set and delete all dim objects found.
[VBA]
Sub DelDimSSet()
Dim oDim As AcadDimension
Dim mDelDimSset As AcadSelectionSet
Dim mI As Integer, mTmp() As AcadEntity
Dim mCntr As Long
ReDim mTmp(30)
Set mDelDimSset = SelectionSets.Add("DimDelete")
For mI = ThisDrawing.ActiveSelectionSet.Count - 1 To 0 Step -1
If InStr(1, ThisDrawing.ActiveSelectionSet(mI).ObjectName, "Dimension") > 0 Then
Set mTmp(mCntr) = ThisDrawing.ActiveSelectionSet.Item(mI)
mCntr = mCntr + 1
If UBound(mTmp) < mCntr Then
ReDim Preserve mTmp(mCntr - 1)
End If
End If
Next
ReDim Preserve mTmp(mCntr - 1)
mDelDimSset.AddItems mTmp
mDelDimSset.Erase
mDelDimSset.Delete
Regen acActiveViewport
End Sub
[/VBA]