Set focus after tabbing through textboxes and checkboxes on sheet

[thequickness]

I have a sheet (not userform) with many ActiveX textboxes and checkboxes. It's used as a checklist for equipment inspections that gets printed out.

Tabbing through the textboxes and checkboxes is hard coded on Sheet1 with:

Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       CheckBox2.Activate
   End If
End Sub

My issue is when I get to row 30 or so, it keeps tabbing, but the screen view doesn't move with the tabbing. I've tried CheckBox2.SetFocus but I get errors.

Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       CheckBox2.Activate
   End If
   CheckBox2.SetFocus
End Sub

tx

 

[Domenic]

Try...

Private Sub CheckBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
       With CheckBox2
            .Activate
            ActiveWindow.ScrollRow = .TopLeftCell.Row
       End With
   End If
End Sub

Hope this helps!