Welcome to the forum,

If it is an ActiveX checkbox then you can try the below:
Sub CheckBoxFromHell()    
    If Worksheets("Schedule").CheckBox1.Value = True Then
        Sheets.Add.Name = "Transformer"
    End If
End Sub