VBA for Skipping Cells
 

If you assign a shortcut key like CNTRL-e to:

Sub nonlocked()
'
' gsnuxx
'
startit = False
For Each r In ActiveSheet.UsedRange
If startit Then
If r.Locked Then
Else
r.Select
Exit Sub
End If
End If
If Intersect(r, ActiveCell) Is Nothing Then
Else
startit = True
End If
Next
End Sub

You can "tab" over locked cells by touching CNTRL-e rather than the TAB key.
--
Gary''s Student - gsnu200770


"MarthaSue" wrote:

Can someone tell me the code for skipping all locked cells; using the tab key
to skip to unlocked cells . . . thanks for your time . . .