Or maybe this Phil

Sub test_1()
Dim myRange As Range
Dim myCell As Range
Dim myAns As Variant

Set myRange = Range("B1,C21,B2,D14,B4,F12,A3")
For Each myCell In myRange.Cells
myAns = InputBox _
(prompt:="Please enter something for cell: " & myCell.Address, _
Title:="Get Data")
If myAns < "" Then
myCell.Value = myAns
End If
Next myCell
End Sub

--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Tom Ogilvy" wrote in message ...
Range("B1,C21,B2,D14,B4,F12,A3").Select
then use the tab key.

Other than that, you would have to code each move combination in the
selectionchange event.

--
Regards,
Tom Ogilvy


"Phil Hageman" wrote in message
...
Is there a way to control tab order among cells - simialar
to Access? For example, in a protected worksheet I want
to tab through the unprotected cells in a particular
order. How would this be done?