суть в том , когда я копирую ваш макрос и вставляю в excel его на просто не видно . допустим я хочу сделать как вы сделали , но у меня не получается как правильно это все сделать. Спасибо!
Function Size(Text As String)
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "\D"
If .test(Text) Then Size = .Replace(Text, "")
End With
End Function