Hi, question about the staus bar display.... I need to add some text,
to explain what it's in the status bar... I need the format if it's
possible..

Private Sub Worksheet_Calculate()
Application.StatusBar = Me.Range("C43").Value
End Sub

Thanks

Fernando

you need something like:

Application.StatusBar = Range("C43").Text & " Transfer Value"

Use ".Text" so you get the format of a numeric value

Regards

Trevor


"Fernando Duran" wrote in message
...
Hi, question about the staus bar display.... I need to add some text,
to explain what it's in the status bar... I need the format if it's
possible..

Private Sub Worksheet_Calculate()
Application.StatusBar = Me.Range("C43").Value
End Sub

Thanks

Thanks, I have the idea, but using text instead of value, that i
didn't know.. thanks for your help.

Fernando
On Fri, 20 Feb 2004 21:37:55 -0000, "Trevor Shuttleworth"
wrote:

Fernando

you need something like:

Application.StatusBar = Range("C43").Text & " Transfer Value"

Use ".Text" so you get the format of a numeric value

Regards

Trevor


"Fernando Duran" wrote in message
.. .
Hi, question about the staus bar display.... I need to add some text,
to explain what it's in the status bar... I need the format if it's
possible..

Private Sub Worksheet_Calculate()
Application.StatusBar = Me.Range("C43").Value
End Sub

Thanks