Changing a button's text

[nigelandrewfoster]

Two quick queries:
The following code changes the active printer, but leaves the text of button 113 unchanged, but I don't know why.:

Sub PrinterChange()
    Dim p As String, q As String
    Select Case Application.ActivePrinter
        Case "PrimoPDF on Ne00:": p = "HP lasejet on Ne04:": q = "HP"
        Case "HP lasejet on Ne04:": p = "\\IBM\OKI C3200 on Ne06:": q = "OKI"
        Case "\\IBM\OKI C3200 on Ne06:": p = "PrimoPDF on Ne00:": q = "PDF"
    End Select
[B]    Worksheets("Standing Orders").Shapes("Button 113").Select[/B]
[B]    Selection.Characters.Text = q[/B]
    Application.ActivePrinter = p
End Sub

Also, if I change the highlighted lines to

[B] Worksheets("Standing Orders").Shapes("Button 113").[/B][B]Characters.Text = q[/B]

it tells me the object doesn't support this property or method?
Thanks,
Nigel

 

[mikerickson]

Worksheets("Standing Orders").Shapes("Button 113").TextFrame.Characters.Text = q

 

[pgc01]

Hi Nigel

Another option:

Worksheets("Standing Orders").Buttons("Button 1").Text = q

 

[nigelandrewfoster]

Thanks guys,
Much appreciated.
Nigel