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