Hello,
I have data that contains certain text strings ("Total" followed by
other text) repeated in column A. When my progam finds this text
string, I want it to insert a blank row below the row that contains
the text.
My macro looks like this:
Set CELLToCHECK = FirstCellR /comment - FirstCellR is in
column A
I = 0
Do Until I = LastRowL
CELLToCHECK = CELLToCHECK.Offset(I, 0)
MsgBox "CELLToCHECK VALUE = " & CELLToCHECK.Value
If CELLToCHECK.Value = "Total" & "*" Then
MsgBox "Here's one =" & CELLToCHECK.Address(False,
False)
Insert.Row
End If
I = I + 1
Loop
This is not working.... any suggestions? thanks in advance
--
----------------------------------------------------------------------------------
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
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
