vba-Color

Function color(color1 As Integer, color2 As Integer)
With Selection.Interior
    Select Case .ColorIndex
        Case color1
            .ColorIndex = color2
        Case color2
            .ColorIndex = color1
        Case Else
            .ColorIndex = color1
    End Select
End With
End Function

Sub color_clear()
Select Case ActiveSheet.Name
    Case "PJ-EnglishTeacher"
        With Selection.Interior
            Select Case .ColorIndex
                Case -4142
                    .ColorIndex = 1
                Case Else
                    .ColorIndex = -4142
            End Select
        End With
    Case Else
        Selection.Interior.ColorIndex = -4142
End Select
End Sub

Sub Blue()
‘shortcut:ctrl/shift/b
Select Case ActiveSheet.Name
    Case "生活記録"
        Call color(20, 20)
        ‘Cells(Selection.row, Selection.Column + 1).Select
    Case "週間生活記録"
        Call color(20, 33)
        Cells(Selection.row, Selection.Column + 1).Select
    Case "朝一タスク"
        Call color(33, 33)
        Cells(Selection.row + 1, Selection.Column).Select
    Case Else
        Call color(20, 33)
End Select
End Sub

Sub red()
‘shortcut:ctrl/shift/r
Call color(22, 3)
End Sub

Sub orange()
‘shortcut:ctrl/shift/o
Call color(45, 46)
End Sub

Sub gray()
‘shortcut:ctrl/shift/g

Select Case ActiveSheet.Name
‘    Case "生活記録"
‘        Call color(20, 33)
‘        Cells(Selection.Row, Selection.Column + 1).Select
    Case "朝一タスク"
        Call color(15, 16)
        Cells(Selection.row + 1, Selection.Column).Select
    Case "DBシリーズ"
        If Selection.Interior.ColorIndex = 15 Then
            Range(Cells(Selection.row, 1), Cells(Selection.row, 24)).Interior.ColorIndex = -4142
        Else
            Range(Cells(Selection.row, 1), Cells(Selection.row, 24)).Interior.ColorIndex = 15
        End If
    Case "CLターゲット1200&1400"
        If Selection.Interior.ColorIndex = 15 Then
            Range(Cells(Selection.row, 1), Cells(Selection.row, 24)).Interior.ColorIndex = -4142
        Else
            Range(Cells(Selection.row, 1), Cells(Selection.row, 24)).Interior.ColorIndex = 15
        End If
    Case Else
        Call color(15, 16)
End Select

End Sub

Sub yellow()
‘shortcut:ctrl/shift/y
Call color(36, 6)
End Sub

Sub purple()
‘shortcut:ctrl/shift/p
Call color(39, 29)
End Sub
Sub green()
‘shortcut:ctrl/shift/e
Select Case ActiveSheet.Name
    Case "生活記録"
        Call color(43, 43)
        Cells(Selection.row, Selection.Column + 1).Select
    Case Else
        Call color(43, 10)
End Select
End Sub
Sub pink()
‘shortcut:ctrl/shift/n
Call color(38, 22)
End Sub
Sub black()
‘shortcut:ctrl/shift/n
Selection.Interior.ColorIndex = 22
End Sub