VBA : Make Code Run as Add In

[muhammad susanto]

hi all..
the macro working well, i want to make "him" as add in,
note : name of sheet is random, how to modify or adapt this code below ;

Sub remove_ku()
    Dim rng As Range, i As Long, ii As Long, sm As Object
    Set rng = Sheets("Sheet2").UsedRange
    With CreateObject("VBScript.RegExp")
        .Pattern = "(\d+(\.\d{3})*)(,\d{2})? m3"
        For i = 2 To rng.Rows.Count
            For ii = 10 To rng.Columns.Count Step 11
                If .test(rng.Cells(i, ii).Value) Then
                    Set sm = .Execute(rng.Cells(i, ii).Value)(0).submatches
                    rng.Cells(i, ii).Value = Replace(sm(0), ".", ",") & Replace(sm(2), ",", ".")
                End If
            Next
        Next
    End With
End Sub

across posting from Make Add In From A Code

anyone helping thank so much.

.sst

 

[muhammad susanto]

hi...
may it make clear, the macro code ONLY work properly in file as save .xlsm
if in a standard module and the file not i'm save as .xlsm, the macro code not working
i attachment 2 files in the secure link :
1. file as .xlsm
2. file as xlsx.

why this problem? i want the code working well as Add in with any name sheet
file as save .xlsm
file as save .xlsx