Something like this :-
Code:
Dim Database As Worksheet
Dim LastRow As Long
Dim CustomerNumber As Long
'--------------------------
Set Database = Worksheets("DataSheet")
LastRow = Database.Range("A65536").End(xlup).Row
CustomerNumber = Database.Cells(LastRow, 1).Value + 1
-----------------------
Regards BrianB
Most problems occur from starting at the wrong place.
Use a cup of coffee to make Windows run faster.
It is easy until you know how.