With frng
..Formula =
"=TEXT(VLOOKUP(CONCATENATE(""00"",B4),'[ZRMA.xls]Format'!$A$2:$P$" &
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row &
",16,0),""0000000000"")"
End With

Hello. I worte an add-in for everyone in the company to use. 99% of the
people that try it say it works perfectly. There are a few people that say
it errors out on their machines. I went to one of them, and the above line
of code is where it errors, specifically the piece of code:
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row

If I replace that with a simple Range("A4:A1000") it works. Any idea why
this doesn't work on some machines? Thanks!

There are actually only 65,535 rows in Excel. Make that change and you should
be OK... It is probably a service pack / version issue. I can honestly say I
have never run accross this but I alway use 65,535...

HTH

"Steph" wrote:


With frng
..Formula =
"=TEXT(VLOOKUP(CONCATENATE(""00"",B4),'[ZRMA.xls]Format'!$A$2:$P$" &
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row &
",16,0),""0000000000"")"
End With

Hello. I worte an add-in for everyone in the company to use. 99% of the
people that try it say it works perfectly. There are a few people that say
it errors out on their machines. I went to one of them, and the above line
of code is where it errors, specifically the piece of code:
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row

If I replace that with a simple Range("A4:A1000") it works. Any idea why
this doesn't work on some machines? Thanks!

Jim - There might be some situations where 65535 vs 65536 might solve
problems, but other than array formulas that cannot process entire columns
I'm not sure what. Surely there are always 65,536 rows ?

Steph - In the workbook with a problem, is there anything between the bottom
row and where End(xlUp) is expected to arrive. Did you try a simplified
version of the code, eg

Range("A65536").Select
Range("A65536").End(xlUp).Select

Regards,
Peter T

"Jim Thomlinson" wrote in message
...
There are actually only 65,535 rows in Excel. Make that change and you
should
be OK... It is probably a service pack / version issue. I can honestly say
I
have never run accross this but I alway use 65,535...

HTH

"Steph" wrote:


With frng
..Formula =
"=TEXT(VLOOKUP(CONCATENATE(""00"",B4),'[ZRMA.xls]Format'!$A$2:$P$" &
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row &
",16,0),""0000000000"")"
End With

Hello. I worte an add-in for everyone in the company to use. 99% of
the
people that try it say it works perfectly. There are a few people that
say
it errors out on their machines. I went to one of them, and the above
line
of code is where it errors, specifically the piece of code:
Workbooks("ZRMA").Sheets("Format").Range("A65536") .End(xlUp).Row

If I replace that with a simple Range("A4:A1000") it works. Any idea
why
this doesn't work on some machines? Thanks!