Hey,
I am getting some errors running this piece of code, I keep getting a case without case select and another if error. I've gone trough and changed a few things but the error is still ongoing. Any help would be good thank you.
I am getting some errors running this piece of code, I keep getting a case without case select and another if error. I've gone trough and changed a few things but the error is still ongoing. Any help would be good thank you.
VBA Code:
Case "Group 2"
If Day(DOH + 60) = 1 Then
If class = "Class 1" Then
GracePeriod = DOH + 60
Else
GracePeriod = Application.EoMonth(DOH + 60, 0) - 0
If class = "Class 2" Then
GracePeriod = DOH + 30
End If
Case "Group1", "1"
If Day(DOH + 60) = 1 Then
If class = "F Class" Then
GracePeriod = DOH + 60
Else
GracePeriod = Application.EoMonth(DOH + 60, 0) - 44
ElseIf class = "S Class" Then
If Day(DOH + 30) = 1 Then
GracePeriod = DOH + 30
Else
GracePeriod = Application.EoMonth(DOH + 30, 0) - 0
End If