I think the last bit is missing ".column"
So Range("d5").End(xlToRight) needs .column tagged on the end

Regards
J

Arne Hegefors wrote:

Hi! I am trying to clear contents in a range of cells but i fail with the
syntax. I want to clear contents starting at cell D5. I want the clear
contents to end where there is nothing more to the right of cell D5 and then
go down to find the last cell with content. I have tried to do that with the
code below but it is somehow wrong. any help appreciated! thanks alot!

ActiveSheet.Range(Cells(5, 4), Cells(Range("C5").End(xlDown).Row,
Range("d5").End(xlToRight))).ClearContents