I think these are forms buttons judging by the button name.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"chris" wrote in message
...
In Your project window go to ThisWorkbook. In the top of code window: Left
dropdown choose Workbook, Right dropdown choose SheetChange then add this
code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range) "this is generated for you"


If Target.Address = "$A$1" Then
Select Case UCase(Target)
Case "CZ"
ActiveSheet.OLEObjects("Button1").Object.Caption = "Cz"
Case "EN"
ActiveSheet.OLEObjects("Button1").Object.Caption = "En"
End Select
End If

End Sub "this is generated for you"



----- tpapaj wrote: -----

Hi,
can someone please help me?

I need to program this:

When I Change value in cell A1 from
"en" to "cz"
Implicit value is "en"
the Caption of Button1 change from
"English" to "Czech"
How to do it please?

Tom


---
Message posted from http://www.ExcelForum.com/