On Action?

I want to run a macro after the cell B7 is edited... currently the cell is a
DATA>validation>list Does it need to be a Listbox?

I use a list box in a program. When something is selected from the box, a
macro is run. Here is the code. I hope this helps:

'This sub runs when cell G7 is changed.
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub
If Intersect(Range("G7"), Target) Is Nothing Then Exit Sub
Const WS_RANGE As String = "G7"

Application.EnableEvents = False
If Range("G7").Value = "listboxoption1" Then
Range("M7").Value = " "
Range("M8").Value = " "
ElseIf Range("G7").Value = "listboxoption2" Then
Range("M7").Value = "typetexthere"
Range("M8").Value = " "
ElseIf Range("G7").Value = "listboxoption3" Then
Range("M7").Value = "typetexthere"
Range("M8").Value = " "
ElseIf Range("G7").Value = "listboxoption4" Then
Range("M7").Value = "typetexthere"
Range("M8").Value = "typetexthere"
End If
Application.EnableEvents = True

End Sub

"John" wrote:

> I want to run a macro after the cell B7 is edited... currently the cell is a
> DATA>validation>list Does it need to be a Listbox?

Thanks, and I did something similar

"CWillis" wrote:

> I use a list box in a program. When something is selected from the box, a
> macro is run. Here is the code. I hope this helps:
>
> 'This sub runs when cell G7 is changed.
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Target.Cells.Count > 1 Then Exit Sub
> If Intersect(Range("G7"), Target) Is Nothing Then Exit Sub
> Const WS_RANGE As String = "G7"
>
> Application.EnableEvents = False
> If Range("G7").Value = "listboxoption1" Then
> Range("M7").Value = " "
> Range("M8").Value = " "
> ElseIf Range("G7").Value = "listboxoption2" Then
> Range("M7").Value = "typetexthere"
> Range("M8").Value = " "
> ElseIf Range("G7").Value = "listboxoption3" Then
> Range("M7").Value = "typetexthere"
> Range("M8").Value = " "
> ElseIf Range("G7").Value = "listboxoption4" Then
> Range("M7").Value = "typetexthere"
> Range("M8").Value = "typetexthere"
> End If
> Application.EnableEvents = True
>
> End Sub
>
> "John" wrote:
>
> > I want to run a macro after the cell B7 is edited... currently the cell is a
> > DATA>validation>list Does it need to be a Listbox?