RE: $$Excel-Macros$$ UDF convert to Macro

PFA OR BELOW CODE Sub putspace() Dim rng As Range Set rng = Application.InputBox("Please Select Range", Type:=8) For Each T In rng k = T For i = 1 To Len(T) j = Mid(T, i, 1) If j = UCase(j) Then k = WorksheetFunction.Substitute(k, j, " " & j) End If T.Offset(0, 1) = WorksheetFunction.

RE: $$Excel-Macros$$ UDF convert to Macro

PFA OR BELOW CODE Sub putspace() Dim rng As Range Set rng = Application.InputBox("Please Select Range", Type:=8) For Each T In rng k = T For i = 1 To Len(T) j = Mid(T, i, 1) If j = UCase(j) Then k = WorksheetFunction.Substitute(k, j, " " & j) End If T.Offset(0, 1) = WorksheetFunction.Tri