Just add .CurrentRegion immediately after With objArea
so
Sub CurRegLoopHighLightBorderTopBot()
Dim objArea As Object
For Each objArea In ActiveSheet.UsedRange.SpecialCells(2).Areas
With objArea.CurrentRegion: .Rows(1).Cells.Interior.Color =
65535: .Rows(.Rows.Count).Cells.Interior.Color = 15773696: End With
Next
End Sub
On Jun 10, 12:10 pm, Chandra Shekar <chandrashekarb....@gmail.com>
wrote:
> Hi,
>
> Thanks for the reply, I am getting output like below but I need 2nd row and
> last tow to be highlighted. Thanks!
>
> Count of CN Pty Sts Pty1 Pty2 Pty3 Pty4 Grand Total AR 4 8 4
> 16 AD 1 2 3 CN 1 1 CE 2 3 5 DR 1 1 1 3 PA 1 1 4 1 7 Grand
> Total 1 6 17 11 35
>
>
>
>
>
>
>
> On Thu, Jun 9, 2011 at 7:08 PM, GoldenLance <samde...@gmail.com> wrote:
> > Sub CurRegLoopHighLightBorderTopBot()
>
> > Dim objArea As Object
>
> > For Each objArea In ActiveSheet.UsedRange.SpecialCells(2).Areas
> > With objArea: .Rows(1).Cells.Interior.Color =
> > 65535: .Rows(.Rows.Count).Cells.Interior.Color = 15773696: End With
> > Next
>
> > End Sub
>
> > On Jun 9, 10:42 am, Chandra Shekar <chandrashekarb....@gmail.com>
> > wrote:
> > > Thanks for the reply. How to put loop if we have more than one current
> > > region. Thanks!
>
> > > Regards,
>
> > > Chandra Shekar B
>
> > > On Wed, Jun 8, 2011 at 8:06 PM, Rajan_Verma <rajanverma1...@gmail.com
> > >wrote:
>
> > > > HI
>
> > > > Please use this Code
>
> > > > Sub HighLight()
>
> > > > Dim rng As Range
>
> > > > ActiveCell.CurrentRegion.Select
>
> > > > Set rng = Selection
>
> > > > ActiveCell.Resize(1, rng.Columns.Count).Interior.Color = 15773695
>
> > > > rng.Cells(rng.Rows.Count, 1).Resize(1,
> > rng.Columns.Count).Interior.Color =
> > > > 15773696
>
> > > > End Sub
>
> > > > Rajan
>
> > > > *From:* excel-macros@googlegroups.com [mailto:
> > > > excel-macros@googlegroups.com] *On Behalf Of *Chandra Shekar
> > > > *Sent:* Wednesday, June 08, 2011 4:01 PM
> > > > *To:* excel-macros@googlegroups.com
> > > > *Subject:* $$Excel-Macros$$ Current Region
>
> > > > Hi,
>
> > > > Please find attached file here I want to highlight first and last row
> > of
> > > > the region, Please let me know how to do this in VBA.
>
> > > > Thanks,
>
> > > > Chandra Shekar B
>
> > > > --
>
> > ----------------------------------------------------------------------------------
> > > > Some important links for excel users:
> > > > 1. Follow us on TWITTER for tips tricks and links :
> > > >http://twitter.com/exceldailytip
> > > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > > > To post to this group, send email to excel-macros@googlegroups.com
>
> > > > <><><><><><><><><><><><><><><><><><><><><><>
> > > > Like our page on facebook , Just follow below link
> > > >http://www.facebook.com/discussexcel
>
> > > > --
>
> > ----------------------------------------------------------------------------------
> > > > Some important links for excel users:
> > > > 1. Follow us on TWITTER for tips tricks and links :
> > > >http://twitter.com/exceldailytip
> > > > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > > > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > > > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > > > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > > > To post to this group, send email to excel-macros@googlegroups.com
>
> > > > <><><><><><><><><><><><><><><><><><><><><><>
> > > > Like our page on facebook , Just follow below link
> > > >http://www.facebook.com/discussexcel
>
> > --
>
> > ----------------------------------------------------------------------------------
> > Some important links for excel users:
> > 1. Follow us on TWITTER for tips tricks and links :
> >http://twitter.com/exceldailytip
> > 2. Join our LinkedIN group @http://www.linkedin.com/groups?gid=1871310
> > 3. Excel tutorials athttp://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros athttp://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks athttp://exceldailytip.blogspot.com
>
> > To post to this group, send email to excel-macros@googlegroups.com
>
> > <><><><><><><><><><><><><><><><><><><><><><>
> > Like our page on facebook , Just follow below link
> >http://www.facebook.com/discussexcel
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
