Can anyone code this better ,ive seen code so small yet do so much ,a present i carnt get my head around,all im looking to do here is to change label colors at a click of a button .this works but it seems to big and i have hundreds to do .
Thanks Paul
Private Sub Command2_Click()
Label6.ForeColor = vbGreen
Label7.ForeColor = vbGreen
Label4.ForeColor = vbBlack
Label5.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label12.ForeColor = vbBlack
Label13.ForeColor = vbBlack
Label14.ForeColor = vbBlack
Label15.ForeColor = vbBlack
Label10.ForeColor = vBlack
Label11.ForeColor = vBlack
Label9.ForeColor = vbBlack
Label16.ForeColor = vbBlack
Label17.ForeColor = vbBlack
Label18.ForeColor = vbBlack
Label19.ForeColor = vbBlack
End Sub
