Erik, thanks that worked with my If statements testin if
the input was greater than 6 and =6.

How would I test (If statement) if the first cell in (user
InputRow) "RName" row is blank? I had:

If Cells(RName,0).Value ="" Then
MsgBox "Row is blank"

but this errors w/message: Run-time error 1004:
Application defined or object-defined error.

-----Original Message-----
This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in
message
...
I set up a InputBox to capture the ROW that the user
would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then

Dan,

Change the 0 to a 1. You can't select column zero in the Cells property:

If Cells(RName,1).Value ="" Then

hth,

Doug Glancy

"Dan" wrote in message
...
Erik, thanks that worked with my If statements testin if
the input was greater than 6 and =6.

How would I test (If statement) if the first cell in (user
InputRow) "RName" row is blank? I had:

If Cells(RName,0).Value ="" Then
MsgBox "Row is blank"

but this errors w/message: Run-time error 1004:
Application defined or object-defined error.

-----Original Message-----
This should work:

Rows(RName).Delete

-Erik

"Dan" wrote in
message
...
I set up a InputBox to capture the ROW that the user
would
like to Delete, If Input = 6 then ClearContents of the
row, etc. I started like this:

Dim RName as Interger
RName=InputBox("Enter Row to be deleted", "Row Number")

How do I use the "RName" to select and delete the entire
row?

I used the RName like this:

If RName = 6 Then