Run macro based on an event and cell value

[Mtotheic]

I am trying to run a macro when a cell within a range of cell is selected, and a cell on the same row as what is selected is not blank.

This is what i have to run the macro when a cell within the given range is selected. It works without problem.
Now I would like to throw a condition in that if the cell in column J is not blank, then a different macro would run.

Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
If Not Intersect(target, Range("k2:n120")) Is Nothing Then
VerbiageSelection.Show

End If

End Sub

 

[Rick Rothstein]

I am trying to run a macro when a cell within a range of cell is selected, and a cell on the same row as what is selected is not blank.

This is what i have to run the macro when a cell within the given range is selected. It works without problem.
Now I would like to throw a condition in that if the cell in column J is not blank, then a different macro would run.

Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
If Not Intersect(target, Range("k2:n120")) Is Nothing Then
VerbiageSelection.Show

End If

End Sub

Maybe this is what you are looking for...

Private Sub Worksheet_SelectionChange(ByVal target As Excel.Range)
  If Not Intersect(target, Range("k2:n120")) Is Nothing Then
    If Not Intersect(Target.EntireRow, Columns("J")) Is Nothing Then
      VerbiageSelection.Show
    End If
  End If
End Sub

[/code]