formula developement 1

[butchkmd]

To all who have helped with the previous posts I thank you again. That issue is resolved. My trouble now is creating a formula that evaluates the text in one cell and depending on what it is change the text in another.

ex

cell a1 = "sunglasses"

now if cell a1 on sheet2 = "Always dark"
I need to remove the "Sunglasses" from the first cell.

I've come up with some code but I have trouble placeing the value on a different sheet

Thanks
M
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tText$

If ActiveCell.Address = ("$A$8&quot Then
With Range("a8&quot
tText = Range("a8&quot.Value
Select Case tText
Case "S"
Sheet1.Select
Range("a1&quot.Value = "Ride"
Exit Sub
Case "P"
Sheet1.Select
Range("a1&quot.Value = "Sleep"
Exit Sub
End Select
End With
End If

End Sub

 

[xlbo]

All seems ok - but you don't need to select the sheet to put data in it - just use :
Sheets("Sheet1&quot.range("a1&quot.value = "whatever"

HTH
Geoff