try
TextBox1.Value = "A " & (Application.Max(Sheets("Data").Range("A:A")) + 1)

--
Regards,
Tom Ogilvy



"Corey" wrote in message
...
TextBox1.Value = "A " & Application.Max(Sheets("Data").Range("A:A")) + 1

The result of the above is EQUAL to the MAX value and NOT (+1) Why?

I get "A 3869" instead of "A3870".

Corey....