[Solved] I Need this VBA Code to work in Entire Workbook

by


Maybe something like this 

Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String
Dim sh As Worksheet

    For Each sh In ActiveWorkbook.Worksheets
        Set SrchRng = sh.Range("b1", sh.Range("b65536").End(xlUp))
        SrchStr = sh.Range("k1")
        Do
            Set c = SrchRng.Find(SrchStr, LookIn:=xlValues)
            If Not c Is Nothing Then c.EntireRow.Delete
        Loop While Not c Is Nothing
    Next

End Sub

8

solved I Need this VBA Code to work in Entire Workbook