deleting the contents of activecell, +2 cells next to it

[P5X]

I want to delete the contents of (eg) cell A2,B2,C2, how do I do this?
I thought it would be something like:

ActiveCell.Delete
ActiveCell.Offset(0, 1).Activate
ActiveCell.Delete
ActiveCell.Offset(0, 1).Activate
ActiveCell.Delete

But that doesn't work.

Thanks for any help

 

[NateO]

You can try this:

Sub clear_out()
Selection.Resize(Selection.Rows.Count, _
Selection.Columns.Count + 2).Clear
End Sub

This assumes that you want the active cell and the next two deleted. You could designate the 'active cell.'

Cheers,

Nate
This message was edited by NateO on 2002-02-18 11:55

 

[Legacy 139]

Or simply :-

ActiveCell.Resize(, 3).ClearContents

(Note the "ClearContents" instead of "Clear")