Simple way
T&Cs are on hidden WS
This is in a userform code sheet, and Thisworkbook Open will .Show it
Option Explicit
Private Sub cbAccept_Click()
Call MsgBox("OK, you may proceed", vbInformation + vbOKOnly, "Terms and Conditions")
Me.Hide
Unload Me
End Sub
Private Sub cbNoThanks_Click()
Call MsgBox("OK, you had your chance", vbCritical + vbOKOnly, "Terms and Conditions")
Me.Hide
Unload Me
'thisworkbook.close (false)
End Sub
Private Sub UserForm_Initialize()
With Me
.tbTC.MultiLine = True
.tbTC.ScrollBars = fmScrollBarsVertical
.tbTC.SetFocus
.tbTC.IntegralHeight = True
.tbTC.Value = Join(Application.WorksheetFunction.Transpose(TC.Cells(1, 1).CurrentRegion.Columns(1)), vbLf)
.tbTC.CurLine = 0
.cbAccept.Enabled = True
.cbNoThanks.Enabled = True
End With
End Sub