hello all!!
any reason why this should not work correctly ? ;)))
tx !!!


If aWS.Range("M52").Value = True Then
aWS.Range("M80").Value = 5
Else
If aWS.Range("M51").Value = True Then
aWS.Range("M80").Value = 4
Else
If aWS.Range("M50").Value = True Then
aWS.Range("M80").Value = 3
Else
If aWS.Range("M49").Value = True Then
aWS.Range("M80").Value = 2
Else
If aWS.Range("M48").Value = True Then
aWS.Range("M80").Value = 1
End If
End If
End If
End If
End If