VBA how to select from a point to the end

[bryan444]

Hello I'd like to clear the contents from lets say the point D2 till the end at the right

I typed this but not working properly...
Could somebody help??

Range("D2").End(xlToRight).ClearContents

Thanks a lot in advance

[Richard Buttrey]

Hi,

If the range is contiguous then

Range("D2"),Range("D2").End(xlToRight)).ClearContents

if not

Range("D2"),Range("D" & Columns.Count).End(xlToLeft)).ClearContents

[JosephP]

I reckon that should be

Range("D2",Range("D2").End(xlToRight)).ClearContents

and
Range("D2",Range("D" & Columns.Count).End(xlToLeft)).ClearContents[/code]
there's an extra ) in Richard's posted versions

[Richard Buttrey]

@Joseph

Quite correct. Well spotted. That will teach me to check code rather than writing it on the fly

[bryan444]

Thanks a lot!!!
It worked!! :-)

[bryan444]

Sorry RIchard

But this

Range("D2"),Range("D2").End(xlToRight)).ClearContents

Still erases what is on the left :-(

[Richard Buttrey]

...but that's what I incorrectly posted and admitted just now.

Have you tried Joseph's correction?

[bryan444]

yes and its working :-)
thanks richard and thanks joseph :-)