VB Code:
Option Explicit
Option Base 1
Public Sub Locker()
Dim i As Integer
Dim j As Integer
Dim Locker(100) As String
For i = 1 To 100
Locker(i) = "CLOSED"
Next i
For i = 1 To 100
For j = 1 To 100
If j / i = Int(j / i) Then
If Locker(j) = "CLOSED" Then
Locker(j) = "OPEN"
Else
Locker(j) = "CLOSED"
End If
End If
ActiveSheet.Cells(i, j).Value = CStr(Locker(j))
Next j
Next i
ActiveSheet.Cells(101, 1).Value = "Open Lockers:"
For i = 1 To 100
If ActiveSheet.Cells(100, i).Value = "OPEN" Then
ActiveSheet.Cells(101, 2).Value = ActiveSheet.Cells(101, 2).Value & "," & CStr(i)
End If
Next i
End Sub