Private Sub UserForm_Initialize()
    frmRaceLimits.txtTier1Slots = Activesheet.Range("intTier1Slots").Value
End Sub