Excel macro to switch the sheet between actual dark mode and light mode

DarkMode.vba

' For this to work create a file called "BlackBackground.jpg" in the path, with a full black image. It can be 1x1 pixels, but the size doesn't matter.

Sub Dark_mode()
'
' Dark_mode Macro
'
' Keyboard Shortcut: Ctrl+d
'

    ActiveSheet.SetBackgroundPicture Filename:= _
        "BlackBackground.jpg"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select

    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
    With Selection.Borders
'        .Color = RGB(72, 72, 72)
    End With

    ActiveWindow.GridlineColor = RGB(0, 0, 0)
'    ActiveWindow.DisplayGridlines = False
End Sub

Sub Light_mode()
'
' Dark_mode Macro
'
' Keyboard Shortcut: Ctrl+d
'

    ActiveSheet.SetBackgroundPicture Filename:= _
        ""
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select

    With Selection.Font
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
    End With
    
    With Selection.Borders
'        .LineStyle = xlNone
    End With

    ActiveWindow.GridlineColor = RGB(128, 128, 128)
'    ActiveWindow.DisplayGridlines = True
End Sub