Dat krijg ik weer niet aan de praat:
Code:
Private Sub Option42_Click()
If Option42 = True Then Option41 = False
Sheets("Calculatieblad").Columns(15).Hidden = False
For Each c1 In Range("subregels")
c1.RowHeight = 30
Next c1
End Sub
[CODE]