coloring the filtered results

[karges]

i have a very huge excel sheet which has 200000 rows. and i need to do a filter based on values of certain columns and the most important task is to color the filtered results. i have the following vb code

xlApp = New Microsoft.Office.Interop.Excel.Application
Dim xRange As Microsoft.Office.Interop.Excel.Range
Dim xlviscels As microsoft.Office.Interop.Excel.XlCellType
xlviscels = New microsoft.Office.Interop.Excel.XlCellType
xlWorkBook = xlApp.Workbooks.Open(FilePath)
xlApp.DisplayAlerts = False
xlWorkBook.Activate()
xlWorkSheet = CType(xlWorkBook.Worksheets.Item("Sheet1"), Microsoft.Office.Interop.Excel.Worksheet)
xlworksheet.UsedRange.AutoFilter(1,"818714")
xlWorkBook.Save()
xlWorkBook.Close(true)
xlApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(xlWorkSheet)
GC.Collect()

 

[karges]

Sub ColorAutoFilter()    Dim FilterNum As Long    With ActiveSheet        If .AutoFilterMode Then            For FilterNum = 1 To .AutoFilter.Filters.Count                If .AutoFilter.Filters(FilterNum).On Then                    .AutoFilter.Range.Cells(1, FilterNum).Interior.ColorIndex = 6 'yellow                Else                    .AutoFilter.Range.Cells(1, FilterNum).Interior.ColorIndex = xlNone                End If            Next        Else            .Cells.Interior.ColorIndex = xlNone        End If    End With End Sub

above is the code to colour the filter data. i want the entire code as a VBA file . for some reason VB.net is not working