Format Number VBA

[5elpep]

Sometimes it is useful to format numbers in a spreadsheet so that they
appear to be text.
To do this I just change the custom formatting as required - for
example "3M CO";"3M CO";"3M CO"
Now I have several hundred cells that need to be formatted in this
way.
I need a UDF that will take a value from one cell and format it
according to a string from another cell.

This is what I've got so far. The My_Value argument is number to be
formatted and the My_Formatting argument is the text that will be used
to format the cell.

Function Custom_Format(My_Value As Integer, My_Formatting As String)

Custom_Format = FormatNumber(My_Value, , My_Formatting, ,
My_Formatting)

End Function

Anyone got any ideas on where I'm going wrong??????????

 

[Harald Staff]

Are you going wrong? I find no indication of that in your story. Please
explain.

Best wishes Harald

 

[JLatham]

This seems to work for me:

Function MakeCustomFormat(number As Integer, _
myFormat As String) As String

MakeCustomFormat = Format(number, myFormat)

End Function

with 3 in A1, and #M CO in B1 then in C1
=MakeCustomFormat(A1,B1)
displays 3M CO in C1

Does that help?