View Single Post
 
Old 06-03-2013, 08:35 AM
-=bb=- -=bb=- is offline Windows 7 64bit Office 2010 32bit
Novice
 
Join Date: May 2013
Posts: 8
-=bb=- is on a distinguished road
Default

Quote:
Originally Posted by JohnWilson View Post
Maybe this then:

Dim c As Integer
Dim r As Integer
c = Range("D14").End(xlToRight).Column
r = Range("D14").End(xlDown).Row
Range(Cells(14, 4), Cells(r, c)).Copy
Hi John,

Once again thank you for taking the time to help out.

Unfortunately using this method fails with a run-time error '6' : Overflow on the r = Range("D14").End(xlDown).Row line.

If it helps debug the problem the table is only ever four columns wide. Hoever before it flakes out, the value of c is 16384

Sorry this is proving to be a little tricky ...

bb

Last edited by -=bb=-; 06-03-2013 at 08:36 AM. Reason: Extra info
Reply With Quote