Much much better.
Thanks.

How do you capture cell I3 so it calls a Sub?

On May 26, 11:40*am, JLGWhiz
wrote:
This might work better.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Set Target = Intersect(Target, Range("B3:H4"))
*If Not Target Is Nothing Then
* *Target.Offset(0, 1).Activate
*End If
End Sub