VB.NET Excel Special Cells and AutoFilter problems

[bluejeanbaby]

Hi

I'm trying to format an Excel file from within VB.NET 2008 (Framework 2.0).

I'm not very familiar with Excel but have taken existing working code from an old VB6 program and am "tweaking" it to get it to work in VB.NET.

I have most of it working with the exception of the following lines:

rng = ws.Range(xclApp .Intersect(ws.R ows(7).EntireRo w, ws.UsedRange.Co lumns(1)), ws.UsedRange.Sp ecialCells(XlCe llType.xlCellTy peLastCell))
rng.Value = rng.Value

'Works correctly up until above line (no cells found for the following)

'For Each cel In rng.Offset(1).S pecialCells(XlC ellType.xlCellT ypeAllFormatCon ditions, Type.Missing)
' If Trim(cel) = "" Then cel = cel.Offset(-1).Value
'Next cel

'rng.Worksheet. AutoFilterMode = False
'rng.AutoFilter (Field:=12, Criteria1:="<>* Total*", Operator:=XlAut oFilterOperator .xlOr, Criteria2:="=*G rand*")
'rng.Offset(1). SpecialCells(Xl CellType.xlCell TypeVisible).En tireRow.Delete( Shift:=XlDirect ion.xlUp)
'rng.Value = rng.Value
''rng.AutoFilte r()
'rng.Worksheet. AutoFilterMode = False

'--------------------------------------------------------------------

rng.Font.Bold = False

Hope someone can help me get this going....

[bluejeanbaby]

Sorry I didn't explain the problem with the following portion:

'rng.Worksheet. AutoFilterMode = False
'rng.AutoFilter (Field:=12, Criteria1:="<>* Total*", Operator:=XlAut oFilterOperator .xlOr, Criteria2:="=*G rand*")
'rng.Offset(1). SpecialCells(Xl CellType.xlCell TypeV isible).EntireR ow.Delete(Shift :=XlDirection.x lUp)
'rng.Value = rng.Value
''rng.AutoFilte r()
'rng.Worksheet. AutoFilterMode = False

This is supposed to filter through and only delete certain lines based on the criteria given.

It deletes those lines but I also lose all the data in all of the fields with the exception of field 12.