PDA

View Full Version : Solved: Dynamic Range



bob1122
09-02-2008, 11:55 AM
I want to define a dynamic range. The following code gives the message:
Run-time error '438':
Object doesn't support this property or method
Any help would be appreciated! Thanks
file:///C:/DOCUME%7E1/rgfinch/LOCALS%7E1/Temp/moz-screenshot.jpgfile:///C:/DOCUME%7E1/rgfinch/LOCALS%7E1/Temp/moz-screenshot-1.jpg
file:///C:/DOCUME%7E1/rgfinch/LOCALS%7E1/Temp/moz-screenshot-2.jpgSub highlight090208()

colkount = Application.CountA(Range("1:1"))
MsgBox (colkount)

rowkount = Application.CountA(Range("A:A"))
MsgBox (rowkount)

mydata = Application.Offset("A1", 0, 0, rowkount, colkount)
Range("mydata").Select

End Sub

mikerickson
09-02-2008, 12:21 PM
Try
Set myData = Range("A1").Resize(rowkount,colkount)

bob1122
09-02-2008, 12:24 PM
Thanks very much!