Macro que no debe actuar en sábado y domingo

Tengo esta macro:

'Por. Dante Amor
' TRASLADAR LA EXISTENCIA DE LA VENTA
dia = Format(Date - 1, "ddd")
Select Case LCase(dia)
Case "sábado", "domingo"
Case Else
Set h = Sheets("Hoja1")
ActiveSheet.Unprotect Password:="1"
If h.[A1] = "" Then
Diario
h.[A1] = Date
h.[A2] = "x"
ElseIf h.[A1] < Date Then
h.[A2] = ""
Diario
h.[A1] = Date
h.[A2] = "x"
ElseIf h.[A1] = Date Then
If h.[A2] = "" Then
Diario
h.[A1] = Date
h.[A2] = "x"
End If
End If
End Select
ActiveSheet.Protect Password:="1"

Pero me actúa todos los días de la semana

Y lo que necesito es que no actué en sábado y domingo