Error message simply states "400".

Sub NextSlicerItem()

Dim LocalReferenceNumber As SlicerCache
Set LocalReferenceNumber = ThisWorkbook.SlicerCaches("Slicer_Local_Reference_Number1")
Dim NextNumber As String
Dim FieldString As String

NextNumber = Me.Range("NextLocalReferenceNumber").Value
FieldString = "[Archive  2].[Local Reference Number].&[" & NextNumber & "]"
LocalReferenceNumber.VisibleSlicerItemsList = Array(FieldString & "") ' This line creates the error. 

End Sub

Good afternoon all,

I have a button in my worksheet that sets my pivot table slicer to the next item in a list. A lot of the time it works. Some of the time it doesn't. On the times that it doesn't, the error message box isn't very helpful. It contains only the title: "Microsoft Visual Basic for Applications" and the body text "400", not even "Error 400:" and then a title for the error. Anyone know what might be causing this?