Quote:
Originally Posted by JohnWilson
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