Thread: Change Shape Text
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Mallycat Mallycat is offline
external usenet poster
  
Posts: 1
Default Change Shape Text

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


--
Mallycat
------------------------------------------------------------------------
Mallycat's Profile: http://www.excelforum.com/member.php...o&userid=35514
View this thread: http://www.excelforum.com/showthread...hreadid=561326

Reply With QuoteReply With Quote