
Philip Treacy
Admin

Forum Posts: 1550
Member Since:
October 5, 2010
October 5, 2010

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: Evan Sim, Kumud Patel
Guest(s) 6
Currently Browsing this Page:
1 Guest(s)
1 Guest(s)
Top Posters:
SunnyKow: 1432
Anders Sehlstedt: 880
Purfleet: 414
Frans Visser: 346
David_Ng: 306
lea cohen: 237
Jessica Stewart: 219
A.Maurizio: 213
Aye Mu: 201
Hans Hallebeek: 184
Newest Members:
Hilary Burchfield
Richie Wright
Adel Kock
Barbara Murray
Doug Milne
https://www.afabola.net/
Siobhan Stringer
Rob Rooth
Tom Lewis
Jennifer Rodriguez-Avila
Forum Stats:
Groups: 3
Forums: 24
Topics: 6540
Posts: 28628
Member Stats:
Guest Posters: 49
Members: 32829
Moderators: 2
Admins: 4
Administrators: Mynda Treacy, Philip Treacy, Catalin Bombea, FT
Moderators: Velouria, Riny van Eekelen
© Simple:Press —
