I have a function which analyzes the active cell, offsets it by one, and
loops this way until it find an empty cell. Its my version of finding the
end of a contiguous range. It work well in almost every condition, but it
appears that when it is called from a particular function, the activecell
cannot be offset.

The calling code does nothing more then call the function, just like any
other function

Does anyone know of a condition where the activecell is locked?


THIS IS THE CALLING FUNCTION
Private Sub ListOfRepsBox_Click()

UpdateStores

If Me.MultiPage1.Value = 1 Then Me.StoreEntry.SetFocus

End Sub


THIS IS THE LOOP
ElseIf Selection = "col" Then

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(NextCell, 0).Select
Count = Count + 1

Loop

If Count 1 Then ActiveCell.Offset(-1, 0).Select

End If