In the UserForm_Initialize sub
With Sheets("Sheet Name Here")
If (Range("A27") = "") And (Range("B28") = "") Then
Me.Controls("Kabbadi").Enabled = False
Else
Me.Controls("Kabbadi").Enabled = True
End If
End With
You can use the # Icon to place Code tags around your code to format it like this. Click the icon and paste the code between the two code tags, or Select the code and click the Icon.
BTW, I would refactor those three Control_Click subs to
Private Sub Control_Click()
ShowPictures
End Sub
Then I would add
Sub ShowPictures()
With Me
.Pictures(picKorfball").Visible = .Korfball.Value
Etc
Etc
End with
End Sub