When cells in sheets 4 to 103 range D7:D36 are filled by one cell at a time,
once filled with text sheet1 is activated.

Mark

"tompl" wrote:

What is the following code meant to accomplish?

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Set t = Target
Set d = Range("D7:D36")
If Intersect(t, d) Is Nothing Then Exit Sub
If t.Value = "" Then Exit Sub
Sheets(1).Activate
Range("A1").Select
End Sub