Dim wb, ws, excel,sheet As Object
Dim xlFilterValues as Integer = 7
Try
'Get WorkBook and WorkSheet wb = GetWorkbook(Handle, Workbook)
wb.Activate()
If Worksheet <> "" Then ws = GetWorksheet(Handle, Workbook, Worksheet) ws.Activate() End If
excel = wb.Application sheet = excel.ActiveSheet sheet.Range(SelectedRange).AutoFilter(Field:=ColumnNumber, Criteria1:= ValueList.Split(","), Operator:=xlFilterValues)
Success = TrueCatch e As Exception Success = False Message = e.MessageFinally wb = Nothing ws = Nothing excel = Nothing sheet = NothingEnd Try
------------------------------
Sachinan Shahi
------------------------------