Mass MLeader Renumber

I wrote this code a while back that changes all of the MLeaders found in a drawing’s model space from an existing number to a new one. I’m just putting it here for a reminder later for when I may need it.

Sub ChangeMLeaderNumber()
 
    Dim oAcadObject As AcadObject
    Dim sOriginalNumber As String
    Dim sChangedNumber As String
    Dim oMLeader As AcadMLeader
    Dim oAttDef As AcadAttribute
   
    sOriginalNumber = ThisDrawing.Utility.GetString(1, "Enter existing MLeader Number to change: ")
    sChangedNumber = ThisDrawing.Utility.GetString(1, "Enter new MLeader Number: ")
    
    For Each oAcadObject In ThisDrawing.ModelSpace
       
        If (TypeOf oAcadObject Is AcadMLeader) Then
            Set oMLeader = oAcadObject
           
            Dim sBlock As String
            sBlock = oMLeader.ContentBlockName
           
            Dim oEnt As AcadEntity
            For Each oEnt In ThisDrawing.Blocks(sBlock)
                If oEnt.ObjectName = "AcDbAttributeDefinition" Then
                    Set oAttDef = oEnt
                    If oAttDef.TagString = "CIRCLE" And oAttDef.TextString = sOriginalNumber Then
                        oMLeader.SetBlockAttributeValue oAttDef.ObjectID, sChangedNumber
                    End If
                End If
            Next
        End If
    Next
 
End Sub

The code was set up for the MLeader I was working with at the time. It would need to be changed to match the block you are using.