Sub LoadConversation()
' =============================================================================================
' This macro will load up the conversation anytime there is a change in multipages or
' userforms.
' =============================================================================================
Dim Brand As String
Brand = Worksheets("Data Capture").Range("C11").Value
frmInboundIntro.txtFPDirect11.Value = Worksheets("Conversation").Range("G69").Value
frmInboundIntro.txtCustomerDirect1.Value = Worksheets("Conversation").Range("G59").Value
frmInboundIntro.txtStakeholder1.Value = Worksheets("Conversation").Range("G41").Value
frmInboundIntro.txtStakeholder21.Value = Worksheets("Conversation").Range("G50").Value
frmInboundIntro.txtStakeholder22.Value = Worksheets("Conversation").Range("G52").Value
frmInboundIntro.txtOutbound11.Value = Worksheets("Conversation").Range("G18").Value
frmInboundIntro.txtOutbound12.Value = Worksheets("Conversation").Range("G20").Value
frmInboundIntro.txtOutbound21.Value = Worksheets("Conversation").Range("G23").Value
frmFunnel.txtMandatory1.Value = Worksheets("Conversation").Range("G113").Value
frmPersonalDetails.txtPersonalDetails11.Value = Worksheets("Conversation").Range("G215").Value
frmCallClose.txtCallClose1.Value = Worksheets("Conversation").Range("G243").Value
frmCallClose.txtCallClose3.Value = Worksheets("Conversation").Range("G248").Value
frmCallClose.txtCallClose4.Value = Worksheets("Conversation").Range("G250").Value
frmCallClose.txtCallClose5.Value = Worksheets("Conversation").Range("G252").Value
frmCallClose.txtClose5.Value = Worksheets("Conversation").Range("G235").Value
frmGCB3.txtSourceOfFunds1.Value = Worksheets("Conversation").Range("G259").Value
frmTFDirectInvestment.txtSourceOfFunds1.Value = Worksheets("Conversation").Range("G259").Value
frmTFISA.txtSourceOfFunds1.Value = Worksheets("Conversation").Range("G259").Value
frmCombiBond.txtSourceOfFunds1.Value = Worksheets("Conversation").Range("G259").Value
frmPersonalDetails.lblCustomer1.Caption = "Are you an existing " & Brand & " customer?"
frmInboundIntro.txtOutbound27.Value = Worksheets("Calculation Matrix").Range("CalculationMatrix_C1FullName").Value
End Sub