VBA Script for running pivot timeline slicer with date range on different sheet

Hi,

I am hoping someone can help me with some vba script to make below work.

I have two pivot table running to selecting date on timeline slicer, I want this timeline slicer date to be selected autmatically based on date range enter on different sheet.

Attached sheet is for example.

Pivot sheet has two pivot with slicer
Dashboard sheet has date range
other two sheets are data for pivots

thank for help.

regards

Nadim

Code in the Dashboard sheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge <> 1 Then Exit Sub

    If Not Intersect(Target, Me.Range("B2:B3")) Is Nothing Then
        ActiveWorkbook.SlicerCaches("NativeTimeline_Date2").TimelineState. _
                SetFilterDateRange Format(Me.Range("B2").Value), Format(Me.Range("B3").Value)
        ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState. _
                SetFilterDateRange Format(Me.Range("B2").Value), Format(Me.Range("B3").Value)
    End If
End Sub

Artik

Thanks Artik,

I try pasting the above scrip, but when i close module it disappears, i then try putting private sub to just sub then it showed me below as attached, would you please mind adding script to my life and upload here..?

regards

NadimAttachment 814206

I don't know what you wanted to show in your previous post, as you added the attachment in the wrong way. See the yellow banner at the top of the page.
The attachment is the added code in the Dashboard sheet module.
I'm not quite sure if this is what you were expecting, as it only sets the timeline when you change cells B2 and B3 in the Dashboard sheet. In other cases it may not work.

Artik

Perfect..! really appreciated.. thank you so much..