Newbie Needs Help with Simple Macro

[promsi]

I have a simple macro I need some help with.

I want to spin through a row range of cells (O2,X2) on a specific page. As I spin through, I want to check a specific cell in that range (S2) and see if that cell is either NULL or has a zero (0). If either is correct (NULL or 0) then delete the range and move the cells below up.

I am not familiar with the VB/Excel syntax but here is what I was starting with and obviously does not work.

Any help would be greatly appreciated.

Dim f_RowCount
f_RowCount = 275
For i = 2 To f_RowCount
f_cell1 = "0" & i
f_cell2 = "X" & i
f_checkcell = "S" & i
If IsNull(f_checkcell) Or (f_checkcell = 0) Then
Sheets("Sheet2").Select
Range(f_cell1, f_cell2).Select
Selection.Delete Shift:=x1Up
End If

Next i

 

[Andrew Poulsom]

Sorry about that. Change:

f_checkcell = "S" & i

to:

Set f_checkcell = Range("S" & i)

 

[promsi]

Ok - so that solved that problem - now when I try to perform the Delete function is says

Delete Method of Range Class failed

I tried changing the "1" to a "|" as suggested by RAVI4EVER but it said "Invalid Character"

Here is the latest code based on changes:

Dim f_RowCount
f_RowCount = 275
For i = f_RowCount To 2 Step -1
f_cell1 = "O" & i
f_cell2 = "X" & i
Set f_checkcell = Range("S" & i)
Sheets("Sheet2").Select
Range(f_cell1 & ":" & f_cell2).Select
If Len(f_checkcell.Value) = 0 Or f_checkcell = 0 Then
Selection.Delete Shift:=x1Up
End If

Next i

 

[Andrew Poulsom]

In upper case it's XLUP (XL is short for Excel).

 

[promsi]

Thank you VERY much for your patience with me and your incredibly quick response.

All works now.