jumping order between cells

[XLSqry]

Is it possible to force the order in which excel jumps between the unlocked cells on a protected sheet?

Example:
all the cells except C3, B6 and C9 are locked and sheet is protected

When pressing TAB excel jumps C3 -> B6 -> C9
When pressing ENTER excel jumps C3 -> C9 -> B6

Is is possible to force excel to follow the same order regardless if TAB or ENTER was pressed?

thanks

 

[Smitty]

Welcome to the Board!

You could use a change event, you'll just need to put them in the order that you want:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_Change(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)<br>    <SPAN style="color:#007F00">'   Code goes in the Worksheet specific module</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> rng <SPAN style="color:#00007F">As</SPAN> Range<br>        <SPAN style="color:#007F00">'   Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")</SPAN><br>        <SPAN style="color:#00007F">Set</SPAN> rng = Target.Parent.Range("C3,B6,C9")<br>             <SPAN style="color:#007F00">'   Only look at single cell changes</SPAN><br>            <SPAN style="color:#00007F">If</SPAN> Target.Count > 1 <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>            <SPAN style="color:#007F00">'   Only look at that range</SPAN><br>            <SPAN style="color:#00007F">If</SPAN> Intersect(Target, rng) <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br>            <SPAN style="color:#007F00">'   Action if Condition(s) are met (do your thing here...)</SPAN><br>            <SPAN style="color:#00007F">Select</SPAN> <SPAN style="color:#00007F">Case</SPAN> Target.Address<br>                <SPAN style="color:#00007F">Case</SPAN> "$C$3"<br>                    Range("B6").Select<br>                <SPAN style="color:#00007F">Case</SPAN> "$B$6"<br>                    Range("C9").Select<br>                <SPAN style="color:#00007F">Case</SPAN> "$C$9"<br>                    Range("C3").Select<br>            <SPAN style="color:#00007F">End</SPAN> Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[XLSqry]

I was hoping that there is some trick (having range???) to avoid having vba but if not then I guess change event will have to do.

thanks for a quick response