[MACROS] Cambiar texto en celda en función del día de la semana

Usuario:

Hola, espero puedas ayudarme con lo siguiente:
 
Tengo puesto en la celda B1 la fecha de hoy sin hora.
 
Range("B1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
 
Y lo que quiero es que cuando ejecute la macro en la celda B6 aparezca un texto determinado, dependiendo de si el día de la semana es Sábado o si es otro día cualquiera de la semana.
El código que tengo puesto es el siguiente:
 
If "=TODAY()" = Saturday Then
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H DEL LUNES ____/____ SON:"
    Else
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H SON:"
End If
 
Es correcto este código o debería poner If Range("B1") = Saturday then. Etc.
 
Muchas gracias de antemano

Respuesta:

Buen día mi amigo, disculpe la tardanza en responderle. 

 
Efectivamente lo correcto es If Range("B1") = Saturday then
 
Saludos

Usuario:

Bien. Una respuesta aceptable.