Help with find error

[jnh0]

Hello guys,

I did a macro which look for a word in specific and delete delete the next 75 rows, but the problem is, when there are 2 sheets together where the word is missing, it always give me an error to debug it. This is what I have so far:

Please Login or Register  to view this content.

I don't know what Im doing wrong. Can you help me please? thanks!!

[ajryan88]

Hi,

Can you please upload your workbook for me to look at this problem.

Thanks

[Sa DQ]

Private Sub BDeleteTreatment()

 Dim wsht As Worksheet, Rng as Range, sRng As Range
 Dim findword

On Error GoTo nws
 For Each wsht In Workbooks("MorningReport.xls").Sheets
    wsht.Activate '?'
    Set Rng = Columns("A:C")
    Set sRng= Rng.Find(What:="Lateral", After:=ActiveCell, LookIn:=xlFormulas, _
       LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
       MatchCase:=True, SearchFormat:=False)
    If Not Srng Is Nothing Then
        findword = sRng.Value

        ActiveCell.Rows("1:1").EntireRow.Select  '??'
        ActiveCell.Rows("1:75").EntireRow.Select
        Selection.Delete Shift:=xlUp
                
    Else
         GoTo nws       
    End If

nws:
    
    Next wsht
End Sub  

[HaHoBe]

Hi, jnh0,

some minor alterations should do the trick:

Please Login or Register  to view this content.

@Sa DQ:
Please make use of code tags as opposed to PHP tags.

Ciao,
Holger