Dim SubformTop As String
Dim SubformLeft As String
SubformLeft = sbfSalesPivot.Left
SubformTop = sbfSalesPivot.Top
Me.sbfSalesPivot.Form.Visible = False
Me.sbfSalesPivot.SourceObject = "frmHome_SalesAnalysisSubform4"
sbfSalesPivot.Top = SubformTop
sbfSalesPivot.Left = SubformLeft
Me.sbfSalesPivot.Form.Visible = True