Clear Sheet except first 3 columns

[Ploom]

Hi!
I would like to clear the contents of my sheets except the first 3 columns
I tried

Sub cal_return()
Sheets("Stock Data").Select
Columns("3:" & Columns.Count).ClearContents

However it returns me Error 1004, I don't understand
Btw i'm using Office 2013

Do you have any suggestions
Thanks!

 

[Ken Cowen]

Not sure why yours doesn't work, but this works for me

Cells(1, 1).Offset(0, 3).Resize(1, Columns.Count - 3).EntireColumn.ClearContents

It should also function on older versions.

I hope this helps.

Ken

 

[Ploom]

Thanks for your quick answer!
This code works!