Hi I am getting following error while running below mention code.
Please help.
[cid:image001.png@01CC2B7B.1B6C0EA0]
Dim nrow As Long
ActiveCell.Select
Cells(8, 1).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
nrow = Range(Selection, Selection.End(xlDown)).Count
MsgBox nrow
ActiveCell.Rows("1:nrow").EntireRow.Select
This message is for the named person's use only. It may contain confidential,
proprietary or legally privileged information. No
confidentiality or privilege is waived or lost by any mis-transmission. If you
receive this message in error, please immediately
delete it and all copies of it from your system, destroy any hard copies of it
and notify the sender. You must not, directly or
indirectly, use, disclose, distribute, print, or copy any part of this message
if you are not the intended recipient.
Viteos Capital Market Services Ltd.and any of its subsidiaries each reserve the
right to monitor all e-mail communications through
its networks. Any views expressed in this message are those of the individual
sender, except where the message states otherwise and
the sender is authorized to state them to be the views of any such entity
--
----------------------------------------------------------------------------------
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
<<inline: image001.png>>
