Delete specific cells contents in a row with some locked cells in the same row

I would like to use a command button to clear the contents of specific
cells of the activecell's row. The row will have some locked cells
also.

Thanks for any help!

Marc

Private Sub Commandbutton1_Click()
cells(activecell.row,1).Range("A1,F1:J1,M1").ClearContents
End Sub

would clear the contents of cells in column A, F to J and M for the
activerow.

in the code
Range("A1,F1:J1,M1").
is relative to Cells(Activecell.row,1).



--
Regards,
Tom Ogilvy


"trussman" <[email protected]> wrote in message
news:[email protected]...
> I would like to use a command button to clear the contents of specific
> cells of the activecell's row. The row will have some locked cells
> also.
>
> Thanks for any help!
>
> Marc
>

Thank you