Clear Timelines Filter if Data exists or is correct

[rhombus4]

Currently have code below to clear all Timelines which works.

However if one of the Columns which has dates gets cleared completely or if one of the columns has a faulty date or text the Timeline relating to that column disappears. Same happens with Refresh All

Dim cache As SlicerCache
  On Error Resume Next
    For Each cache In ActiveWorkbook.SlicerCaches
      cache.ClearDateFilter
        Next cache
   On Error GoTo 0

 

[rhombus4]

Do I need an if statement somewhere in the code to avoid timeline disappearing if no dates are in the column ?

 

[rhombus4]

I tried code below, but it still removed the timeline when counta formula wasn't greater than 1

if worksheet function.counta(ws.range("a:a")) >1 then activeworkbook.slicercaches("nativetimeline_date").cleardatefilter