Limiting a macro to one column

S

Steve

Sorry, that sounds really wierd, but what I want to do is this:

I have a data table of around 2000 rows and 16 columns. I want to have
a 'Delete Selected Row' button. The idea is that the selected cell and
the 15 to the right of it are cleared. I have the following code:

ActiveCell.Value = ""
ActiveCell.Offset(0, 1).Value = ""
....
ActiveCell.Offset(0, 15).Value = ""

Any cell in the table can be selected for amendment ,but how can I
amend the Button's code so that it only works if the ActiveCell is in
column B?

Thanks in advance.

Steve
 
J

JE McGimpsey

one way:

With ActiveCell
If .Column = 2 Then .Resize(1, 15).ClearContents
End With
 
D

Dave Peterson

Maybe you could just use the row that the activecell is on???

cells(activecell.row,2).resize(1,15).clearcontents

Just a thought.
 
Top