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
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