try this vba code

Dim t As String
Private Sub ComboBox1_Change()

Dim pic As Object


If ComboBox1.Value = "other" Then
Sheets("Sheet2").Select
ActiveSheet.Range("C6").Select
ActiveSheet.Range("C6").Value = ""
Set pic = ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Administrator\My Documents\M
Pictures\rxvpheader.gif")
pic.Width = ActiveSheet.Range("C6").Width
pic.Height = ActiveSheet.Range("C6").Height
pic.Left = ActiveSheet.Range("C6").Left
pic.Top = ActiveSheet.Range("C6").Top
t = pic.Name
Application.CommandBars("Picture").Visible = False

Else
Sheets("Sheet2").Select
If t < "" Then
ActiveSheet.Shapes(t).Select
ActiveSheet.Shapes(t).Delete
t = ""
End If

ActiveSheet.Range("C6").Select


ActiveSheet.Range("C6").Value = ""
ActiveSheet.Range("C6").Value = "any text"
End If
End Su

--
anilsolipura
-----------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...fo&userid=1627
View this thread: http://www.excelforum.com/showthread.php?threadid=27753