Help required Vba Code for "Pivot table filter Created from power pivot" to be based on a cell value

[Uzair Hakim]

This is My Code

ActiveSheet.PivotTables("JV1").PivotFields("[tblDayBook].[JV#].[JV#]"). _
VisibleItemsList = Array("[tblDayBook].[JV#].&[2397]")

I want this .&[2397]") to be based on cell value. Please help