split data excel

Sub neills()

For Each sht In ActiveWorkbook.Sheets
Dim c As Range
    Dim SrchRng
   
    Set SrchRng = sht.Range("b1", sht.Range("b65536").End(xlUp))
    Do
        Set c = SrchRng.Find("east", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing

Next sht

End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 1/13/2014 by Sara\
'
' Keyboard Shortcut: Ctrl+q
'
    Range("a1").Select
    ActiveCell.FormulaR1C1 = "setup"
    Range("b1").Select
    ActiveCell.FormulaR1C1 = _
        "=SUM(COUNTIF(Sheet2!R[-16]C[-10]:R[13]C[-10],""*set*""),COUNTIF(Sheet3!R[-16]C[-10]:R[13]C[-10],""*set*""),COUNTIF(Sheet1!R[-16]C[-10]:R[13]C[-10],""*set*""))"
    Range("a1").Select
End Sub
Sub namingu()


Dim ws As Worksheet
Set ws = Sheets.Add
Sheets.Add.Name = "new"
End Sub
Sub runall()
Call neills
Call namingu
Call Macro3
End Sub

Tweet