A family of Microsoft spreadsheet software with tools for analyzing, charting, and communicating data.
Hi saracasson ,
I am Vijay, an Independent Advisor. I am here to work with you on this problem.
- Make a backup of your workbook.
- Open your workbook and ALT+F11
- Locate your Workbook name in Project Explorer Window
- Double click on your worksheet name
- Copy paste the Macro code given below
- Save your file as .xlsm Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ExitSub If Intersect(Target, Me.Range("A10:I10")) Is Nothing Then Exit Sub Application.EnableEvents = False Me.Cells(1, Target.Column + 1).Select ExitSub: Application.EnableEvents = True End Sub
Do let me know if you require any further help on this. Will be glad to help you.