Macro Mid Formula Not Working

[joshag]

I have a small macro and within that macro I need to grab 16 digits out of a string of mixed characters and numbers. So as an example I need the first 16 digits after;
ZA874635496587695854768969780456
and this copies down the entire column. .Range("B2:B" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula = "=MID(A2,3,16)" The problem is, it only grabs 15 numbers and gives me a zero for the 16th. I have tried increasing the amount of numbers and it always pulls 15 and then spits out zeros???

Any insight would be appreciated.

Thanks!

[AB33]

Wrong assumption.

[Norie]

The code works fine for me, how is column B formatted?

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

[joshag]

The code works fine for me, how is column B formatted?

Any chance you could upload a sample workbook?

Click on GO ADVANCED, scroll down and click Manage Attachments.

Just to be certain I put a piece in the macro to format the column first and it didn't help. If I change the .Formula = "=MID(A2,3,16) to 17, 18, 19, it just increases the amount of zeros I get after the 15th digit. A sample? I can try to put one together with fictitious #'s because the original is sensitive.

[joshag]

Wrong assumption.

How so? Can you elaborate?

[AB33]

You could try on formula. Use the mid function in excel and see if it returns the correct data.