Formula for Extract Capital Letters From Text

How to use this formula:- 

 Step1:- copy this formula

 Step2:- paste in the macro's module

 Step3:- go to excel sheet and apply this formula on any text .

 Step4:- formula name is "big_letter"

Function big_letter(x As String)

For y = 1 To Len(x)

Z = Mid(x, y, 1)

For a = 65 To 90

If Chr(a) = Z Then

b = b & Z

big_letter = b

End If

Next a

Next y

End Function 

Easy way to run this formula through pictures :-