This is just a guess, but of you had a drawing toolbar textbox named Word
Grading Tractor, this would work.

Sub ShowWordGradingTractor()
With ActiveSheet.Shapes("Word Grading Tractor")
.TextFrame.Characters.Text = "$80"
.Visible = True
End With
End Sub

Perhaps another attempt at describing what you want.

--
Regards,
Tom Ogilvy


"
.com wrote in message
...
can I make the word grading tractor show on my sheet but holds the value
of
$80?

if so How can i do it?