I added target.row=1 and target.column=3 to validate that the cell bein
changed is c1, it might be different in you case.
other should be actually Other
Make sure that you identifying correct cell., other wise you wil
always get any text
try this code
Dim t As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pic As Object
Dim dat As String
If Target.Row = 1 And Target.Column = 3 Then
Sheets("Sheet1").Select
dat = ActiveSheet.Range("C1").Value
If dat = "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\test.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 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=27830