Hi Jim,

My punctuation went a touch awry. It should have read...

The previous With, With Worksheets("Track"), gives you the object for
With .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

Excel reads it as...

With Worksheets("Track").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)

Ken Johnson