Možné řešení s využitím Select Case.
P.
Př.:Sub zapis_na_dalsi_list()
Dim aktivni_list As String
Dim zapisovy_list As String
aktivni_list = ActiveSheet.Name
Select Case aktivni_list
Case "leden": zapisovy_list = "únor"
Case "únor": zapisovy_list = "březen"
'atd.
End Select
Sheets(zapisovy_list).Cells(14, "D") = "6:15"
End Subcitovat
P.
Př.:Sub zapis_na_dalsi_list()
Dim aktivni_list As String
Dim zapisovy_list As String
aktivni_list = ActiveSheet.Name
Select Case aktivni_list
Case "leden": zapisovy_list = "únor"
Case "únor": zapisovy_list = "březen"
'atd.
End Select
Sheets(zapisovy_list).Cells(14, "D") = "6:15"
End Subcitovat