Sub makro1()
'  MsgBox Sheets("1. klass").Range("A4")
  For rida = 1 To 7
    MsgBox Sheets("1. klass").Cells(rida, 1)
  Next rida
End Sub

Sub makro2()
  For Each leht In Worksheets
    MsgBox leht.Name
  Next leht
End Sub

Function kasLehtOlemas(raamat As Workbook, lehenimi As String)
   Dim leht As Worksheet
   olemas = False
   For Each leht In raamat.Worksheets
     If leht.Name = lehenimi Then olemas = True
   Next leht
   kasLehtOlemas = olemas
End Function

Sub loomine()
   Dim opetajad As Workbook, klassid As Workbook
   Dim leht As Worksheet, klassileht As Worksheet, opetaja As String
   Set klassid = Workbooks("klassid.xlsm")
   Set opetajad = Workbooks.Add
   paevanr = 1 'lisage kõik viis koolinädalapäeva
   For Each klassileht In klassid.Worksheets
    For tunninr = 1 To 7
     opetaja = klassileht.Cells(tunninr, paevanr).Text
     If Len(opetaja) > 0 Then
      If (Not kasLehtOlemas(opetajad, opetaja)) Then
       Set leht = opetajad.Sheets.Add
       leht.Name = opetaja
      Else
       Set leht = opetajad.Worksheets(opetaja)
      End If
     leht.Cells(tunninr, paevanr) = klassileht.Name
     End If
    Next tunninr
   Next klassileht
End Sub