title: Deleting rows if cells contain certain words (Syntax Error)
body: <p>I have data in which there is a list of value of expors per each country. I'll work with the countries whose population is greater than 3.5 million. So, I need to get rid of those who are not. Here is the code I got:</p>
  
  <pre><code>Sub Loop_Example()
      Dim Firstrow As Long
      Dim Lastrow As Long
      Dim Lrow As Long
      Dim CalcMode As Long
      Dim ViewMode As Long
  
      With Application
          CalcMode = .Calculation
          .Calculation = xlCalculationManual
          .ScreenUpdating = False
      End With
  
      'We use the ActiveSheet but you can replace this with
      'Sheets("MySheet")if you want
      With ActiveSheet
  
          'We select the sheet so we can change the window view
          .Select
  
          'If you are in Page Break Preview Or Page Layout view go
          'back to normal view, we do this for speed
          ViewMode = ActiveWindow.View
          ActiveWindow.View = xlNormalView
  
          'Turn off Page Breaks, we do this for speed
          .DisplayPageBreaks = False
  
          'Set the first and last row to loop through
          Firstrow = .UsedRange.Cells(1).Row
          Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
  
          'We loop from Lastrow to Firstrow (bottom to top)
          For Lrow = Lastrow To Firstrow Step -1
  
              'We check the values in the A column in this example
              With .Cells(Lrow, "J")
  
                  If Not IsError(.Value) Then
  
                      Select Case .Value
  
  
           Case Is = "Bosnia and Herzegovina", "Mongolia", "Armenia", "Jamaica", "Qatar", "Albania", "Puerto Rico", "Lithuania", "Namibia", "Gambia", "Botswana", "Gabon", "Lesotho", "TFYR of Macedonia", "Slovenia", "Guinea-Bissau", "Latvia", "Bahrain", "Equatorial", "Guinea", "Trinidad and Tobago", "Estonia", "Timor-Leste", "Mauritius", "Cyprus", "Eswatini", "Djibouti", "Fiji", "Réunion Comoros", Guyana Bhutan Solomon Islands Macao Montenegro Luxembourg Western Sahara Suriname Cabo Verde Maldives Malta Brunei "Guadeloupe", "Belize", "Bahamas", "Martinique", "Iceland", "Vanuatu", "French Guiana", "Barbados", "New Caledonia", "French Polynesia", "Mayotte", "Sao Tome &amp; Principe Samoa", "Saint Lucia Channel Islands", "Guam", "Curaçao", "Kiribati", "FS Micronesia", "Grenada", "Saint Vincent and the Grenadines", "Aruba", "Tonga", "U.S. Virgin Islands","Seychelles", "Antigua and Barbuda", "Isle of Man", "Andorra", "Dominica", "Cayman Islands", "Bermuda", "Marshall Islands", "Northern Mariana Islands", "Greenland",
       "American Samoa", "Saint Kitts and Nevis", "Faeroe Islands", "Sint Maarten", "Monaco", "Turks and Caicos", "Saint Martin", "Liechtenstein", "San Marino", "Gibraltar", "British Virgin Islands", "Caribbean Netherlands", "Palau", "Cook Islands", "Anguilla", "Tuvalu", "Wallis &amp; Futuna", "Nauru", "Saint Barthelemy", "Saint Helena", "Saint Pierre &amp; Miquelon", "Montserrat", "Falkland Islands", "Niue", "Tokelau", "Holy See", "Rep. of Moldova", "Macedonia", "Neth. Antilles", "EU", "Asia n.i.e.": .EntireRow.Delete
              End Select
                      'This will delete each row with the countries written above
                      'in Column A, case sensitive.
  
                  End If
  
              End With
  
          Next Lrow
  
      End With
  
      ActiveWindow.View = ViewMode
      With Application
          .ScreenUpdating = True
          .Calculation = CalcMode
      End With
  
  End Sub
  </code></pre>
  
  <p>Is it possible for me look for the countries listed above (I know it is many)? How am I'm supposed to edit that part to avoid getting "Syntax Error". Sorry, I'm new to VBA.</p>