Cell Bound to another cell

I found this code elsewhere in the net. This maybe the code that I am looking for.
The only issue with this code is when I click, let say C1 then it bounce to another cell. Is there anyway to when I click, it will stay in the cell.
Also, if you can add a yellow color in the cell as I press the tab?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static intPrevPos As Integer
    Static boolAlreadyRun As Boolean
    Dim avarTabOrder As Variant
    Dim intPos As Integer
     
    avarTabOrder = Array("A1", "A2", "A3", "C1", "C2", "C3")
    If Not boolAlreadyRun Then
        intPrevPos = LBound(avarTabOrder)
        boolAlreadyRun = True
    End If
    
    Application.EnableEvents = False
    If Target.Cells.Count > 1 Then Set Target = ActiveCell
    If intPrevPos = UBound(avarTabOrder) Then intPrevPos = LBound(avarTabOrder) - 1
    If Target.Address <> avarTabOrder(intPrevPos + 1) Then _
    Me.Range(avarTabOrder(intPrevPos + 1)).Select
    intPrevPos = intPrevPos + 1
    Application.EnableEvents = True
End Sub

thanks.