the extra period is put in by the email software. There should only be one
period

iLastRow = Cells(Range( _
"B:B").Rows.Count, 2).End(xlUp).Row

Sure you haven't asked for help on this situation before?

--
Regards,
Tom Ogilvy


"Scott Wagner" wrote in message
...
Not sure if my last post took... so I apologize if this is a duplicate.

Thanks for the quick response Ken.

I am getting an error on this line when I paste the code:

iLastRow = Cells(Range("B:B").Rows.Count, 2) _
..End(xlUp).Row

Any ideas?