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

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