Sub Bla_Bla_Bla()
Dim MyRng As Range, n As Long
Set MyRng = ActiveSheet.UsedRange
For n = MyRng.Rows.Count To 1 Step -1
If UCase(Left(Trim(MyRng(n, 1)), 5)) = "TOTAL" _
Then MyRng(n + 1, 1).EntireRow.Insert
Next
End Sub
NOTE:
to insert a row you have to say the range object first:
RangeObject.EntireRow.Insert
On May 12, 10:38 pm, John in Huntington Beach <[email protected]>
wrote:
> 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 [email protected]
<><><><><><><><><><><><><><><><><><><><><><>
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
