Excel crashing while running a code

[rinijg]

I have a code to find out for a particular text in all the worksheets of a workbook and if a text is there in a particular worksheet, the name of that worksheet will be be copies to a cell in Sheet1. Following is the code

Sub searchname_Click()
     
    Dim ThisAddress$, Found, FirstAddress
    Dim Lost$, N&, NextSheet&
    Dim CurrentArea As Range, SelectedRegion As Range
    Dim Reply As VbMsgBoxResult
    Dim FirstSheet As Worksheet
    Dim Ws As Worksheet
    Dim Wks As Worksheet
    Dim Sht As Worksheet
 
    Set FirstSheet = ActiveSheet '< bookmark start sheet
    Lost = InputBox(prompt:="Type in the   details you are looking for!", _
    Title:=" Find what?", Default:="*")
    If Lost = Empty Then End
    For Each Ws In Worksheets
        Ws.Select
        With ActiveSheet.Cells
            Set FirstAddress = .Find(What:=Lost, LookIn:=xlValues)
            If FirstAddress Is Nothing Then '< blank sheet
                Next Ws
            End If
            FirstAddress.Select
            
            With Selection
                Set Found = .Find(What:=Lost, LookIn:=xlValues)
                If Not Found Is Nothing Then
                    FirstAddress = Found.Address
                  
                End If
            End With
            Selection.Copy
              
          Worksheets("Sheet1").Range("a65536").End(xlUp).Offset(1, 0).Value = ActiveSheet.Name
           
           Next Ws
 FirstSheet.Select
   
End Sub

But the excel is crashing when i run this code. Could you please help me out??

 

[rinijg]

Now its working absolutely fine... It was my mistake in copying the code...

Thanks a ton.... I am so relieved now

 

[Ruddles]

Just to clarify, Next isn't just a command, it's actually part of the structure of the program. You can't just issue a Next command and expect the program to go to the next cycle of the For loop - each Next must have one and only one matching For command, in the same way as every Do must have exactly one matching Loop, every If must have exactly one matching End If, every Select must have exactly one matching End Select, and vice versa.

So you can't do this:-

For x = 1 To 100
  [COLOR=green]' some code[/COLOR]
  If xyz = 0 Then
    Next x
  End If
  [COLOR=green]' some more code[/COLOR]
Next x

You would have to do this:-

For x = 1 To 100
  [COLOR=green]' some code[/COLOR]
  If xyz <> 0 Then
    [COLOR=green]' some more code[/COLOR]
  End If
Next x

Hope this helps (for future reference).