Set r = ActiveSheet.Range("E3:AU65534")

If you want c to reach AU65535 then you will have to change the range for r.
See above. You can either change that range to E3:AU65535 or change the If
statement to: If c.Address = "AU65534" Then




"Carrie_Loos via OfficeKB.com" wrote:

Same problem skip right to End If

Dave Peterson wrote:
C.address is in A1 reference style.

You could check
if c.address = "$AU$65535"

Some nice person out there gave me the code " If c.Address = "R65535C47" Then
Exit For End If"
[quoted text clipped - 52 lines]
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200801/1


--
Message posted via http://www.officekb.com