Dim rngFound As Range
      Dim rngDel As Range
      Dim arrColumnNames() As Variant
      Dim varName As Variant
      Dim strFirst As String

      arrColumnNames = Array("Hotel","India","Julliet")

      For Each varName In arrColumnNames
          Set rngFound = Rows(1).Find(varName, Cells(1, Columns.Count), xlValues, xlPart)
          If Not rngFound Is Nothing Then
              strFirst = rngFound.Address
              Do
                  If rngDel Is Nothing Then Set rngDel = rngFound Else Set rngDel = Union(rngDel, rngFound)
                  Set rngFound = Rows(1).Find(varName, rngFound, xlValues, xlPart)
              Loop While rngFound.Address <> strFirst
          End If
      Next varName

      If Not rngDel Is Nothing Then rngDel.EntireColumn.Delete

      Set rngFound = Nothing
      Set rngDel = Nothing
      Erase arrColumnNames