View Single Post
 
Old 06-05-2013, 05:06 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,784
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough
Default

The code I posted works perfectly with your file for me

Sub chex()
Dim c As Integer
Dim r As Integer
With ActiveWorkbook.Worksheets("Surveyed Area by Area")
c = Range("D14").End(xlToRight).Column
r = Range("D14").End(xlDown).Row
Range(Cells(14, 4), Cells(r, c)).Copy
End With
End Sub

Are you running in Excel or PowerPoint?
If the latter have you set an Excel Reference
__________________
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote