Forcing a cell to keep focus

[NitherWise]

Using VBA, how can you force a cell to stay selected? I have a sheet that I want B3 to stay selected all the time, even after the enter key is pressed. I've tried several variations of code but I can't get it to work.

Thanks,

 

[Barry Katcher]

If all you want to do is not have the cell selection change after entry, go into "Tools/Options/Edit" and uncheck the "Move Selection after enter" box. I'm sure you could work this into code.

 

[NitherWise]

If I do that It affects the whole workbook and I only want to control it on one sheet.

I did try:

Private Sub NoMove()

If Sheets("Control").Range("B3").MoveAfterReturn = True Then
Sheets("Control").Range("B3").MoveAfterReturn = False
End If

End Sub

but that didn't work either.

Can you suggest anything else? Thanks

 

[Legacy 98055]

Two ways. The first being better in my opinion. Make sure all cells are locked except for the cell in question. Protect the worksheet, and place this code in:

Private Sub Worksheet_Activate()
EnableSelection = xlUnlockedCells
End Sub

Method two:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Target.Address(0, 0) = "B3" Then Range("B3").Select
End Sub

tom

 

[NitherWise]

Thanks! That's just what I needed.