View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Change Shape text / Color

Sub fixtext()
ActiveSheet.Shapes(Application.Caller).Select
Selection.Characters.Text = "Hello World"
End Sub
--
Gary''s Student - gsnu201001