I have written following Code and while running getting the message: Method 'Range of Object'_Worksheet failed
Code
Private Sub CB_FY_Change()
Dim FilterData As Worksheet
Set FilterData = Sheet1
FilterData.Range("V3").Value = Me.CB_FY.Value
FilterData.Range("A3").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheet1.Range("Q2:AE3"), CopyToRange:=Sheet1.Range("Q6:AE6"), Unique:=False
Me.List_EOI_Database.RowSource = Sheet1.Range("EOI_Filter").Address(External:=True)
End Sub
Can someone help