Default cursor postion

Hey,

Wondering if there is a way to do this ...

I have a workbook with 11 tabs - Lets say they are named 1 thru 11

After entering data into a row on tab 1 (or any tab) and then I go to tab 5 (or any tab)

I would like the cursor postion to high light the 1st empty blank cell in coulmn B on tab 1 or any tab I just left.

Clear as mud?

in the worksheet_activate event for each sheet try:

Private Sub Worksheet_Activate()
    Dim rng As Range
    Set rng = Range("B1").End(xlDown)
    rng.Offset(1).Select
End Sub

You could put this in each sheet module:

Private Sub Worksheet_Activate()
    Dim r As Range

    On Error Resume Next
    
    With Me
        Set r = .Columns("B").SpecialCells(xlCellTypeBlanks)
        If r Is Nothing Then
            .Cells(.Rows.Count, "B").End(xlUp)(2).Select
        Else
            r(1).Select
        End If
    End With
End Sub

Or this in the ThisWorkbook module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim r As Range

    On Error Resume Next
    
    With Sh
        Set r = .Columns("B").SpecialCells(xlCellTypeBlanks)
        If r Is Nothing Then
            .Cells(.Rows.Count, "B").End(xlUp)(2).Select
        Else
            r(1).Select
        End If
    End With
End Sub

The above did not seem to move the cursor at all.

Post a workbook with the code installed that doesn't work.

are you saving in compatability mode it is slower) but woudn't expect that much difference.