Clear content then assign value.

[expeo]

I created a maco (Clearcells), but I cannot seem to make it work.

It should clear the contents from cells W3:W5 in a different worksheet (Calls Data) and then assign W3 with the value of 1. I am missing something here. Also, how can I add the code to include to refresh a pivot table after the first 2 steps?

Sub Clearcells()
With Sheets("Calls Data")
.Range(.Cells(3, 23), .Cells(5, 23)).ClearContents
.Range.Cells(3, 23).Select
End With
Selection.Value = 1
End Sub

 

[trimmjens]

You can't select cells of an inactive sheet.

Is this what you're looking for?

Sub ClearCells()

With Sheets("Calls Data")
    .Range("W3:W5").ClearContents
    .Range("W3").Value = 1
End With

End Sub