Had to change the _Change() at the end of the macro to exit, then it works

So

Private Sub MeanVC_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MeanVC = Format(MeanVC, "$#,###.00")
End Sub



"David Adamson" wrote in message
...

Thanks for the posts Robin and Dave sorry for the delay but I was out of
the
office

I tried

MeanVC= format(MeanVC, "$#,###.00")

And all that happens is as soon as you type 1 you get $1.00 and then the
next numbers are placed after the .00.

I think I will have to have a format button until I can find the answer




"Robin Hammond" wrote in message
...
David,