Philip Treacy
Admin
Forum Posts: 1586
Member Since:
October 5, 2010
October 5, 2010
Offline
Hi Ravikiran
Not quite sure what you mean but there are a few things you need to change
You've declared r as as range but you are using rng
You also need to Set a range variable
And are you trying to get the intersection of the range described by c and ActiveSheet.UsedRange?
Try this
Sub MyRanges()
Dim rng As Range, c As String
c = ActiveCell.EntireColumn.Address(False, False)
Set rng = Intersect(Range(c), ActiveSheet.UsedRange)
End Sub
Regards
Phil
Forum Timezone: Australia/Brisbane
Most Users Ever Online: 245
Currently Online: casey zweig, German Garcia Vilches, Glenda Reynolds
Guest(s) 11
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
Catalin Bombea: 1917
SunnyKow: 1432
Anders Sehlstedt: 900
Purfleet: 414
Frans Visser: 346
David_Ng: 306
Hans Hallebeek: 289
lea cohen: 246
Jessica Stewart: 219
A.Maurizio: 216
Newest Members:
Ranjeet Wankhade
Sugata Maity
Karen McCarron
Amanda Zibell
Kevin Sanderson
wer klaus
Richard Gower
Sanket Rathod
Tung Vo
chutima thongnan
Forum Stats:
Groups: 3
Forums: 24
Topics: 6878
Posts: 30149
Member Stats:
Guest Posters: 49
Members: 33696
Moderators: 2
Admins: 3
Administrators: Mynda Treacy, Philip Treacy, Jessica
Moderators: Velouria, Riny van Eekelen
© Simple:Press —