Thanks, Yasser, but that didn't work. I'm wondering if the change event code is causing the Auto_Open to not work correctly.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B6:I45")) Is Nothing Then
Range("A6").Value = Target.Row