Change Shape Text

[rhani111]

Hi All,

I hope someone can help cause I'm pulling my hair out .......grrrr

I have a button that when clicked changes the text on the button to a
cell reference...no problems there.....BUT I cannot seem to get the
alternative text (if the cell reference is blank) to show up...

Here is what I have so far...

Dim shp As Shape
Set shp = ActiveSheet.Shapes("Button 415")
sText = Sheet27.Range("C1").Text
shp.TextFrame.Characters.Text = sText
If Sheet27.Range("C1").Text <> "" Then
On Error Resume Next
shp.TextFrame.Characters.Text = "My Button"

can someone help PLEASE??? wahhhhhhhh

 

[Mallycat]

I think this
If Sheet27.Range("C1").Text <> "" Then
On Error Resume Next
shp.TextFrame.Characters.Text = "My Button"


should be this
If Sheet27.Range("C1").Text = "" Then
shp.TextFrame.Characters.Text = "My Button"
end if

I haven't tested it though

 

[rhani111]

Thanks so much Mally.....

I had finally worked it out for myself....

Took forever for me to find the answer....but I got it..