Macro para reemplazar string en el pie de página

Buenas, tengo una macro que modifica el pie de página automáticamente dependiendo del mes. Simplemente pasa al siguiente mes y año.

Lo que pasa es que por ejemplo, cuando estoy en el mes de Mayo, y me va a cambiar a Junio, también me cambia otras palabras en el pie de pagina como por ejemplo: Mayorista, que pasa a ser Juniorista.

Este es mi código:

'Inicialización de variables
Dim sMes As String, sMesR As String, sAnyo As String, sAnyoR As String
sMes = Sheets("Control").Range("C9").Text
sMesR = Sheets("Control").Range("C9").Text
sAnyo = Sheets("Control").Range("D9").Value
sAnyoR = Sheets("Control").Range("D9").Value
'Case para cambiar mes y año
Select Case Range("C9").Text
Case "Enero"
sMesR = "Febrero"
Case "Febrero"
sMesR = "Marzo"
Case "Marzo"
sMesR = "Abril"
Case "Abril"
sMesR = "Mayo"
Case "Mayo"
sMesR = "Junio"
Case "Junio"
sMesR = "Julio"
Case "Julio"
sMesR = "Septiembre"
Case "Septiembre"
sMesR = "Octubre"
Case "Octubre"
sMesR = "Noviembre"
Case "Noviembre"
sMesR = "Diciembre"
Case "Diciembre"
sMesR = "Enero"
sAnyoR = sAnyo + 1 'De diciembre a enero sumamos un año
Case Else
sMesR = sMesR
sAnyoR = sAnyoR
End Select
'Actualiza las celdas
Sheets("Control").Range("D9").Value = sAnyoR
Sheets("Control").Range("C9").Value = sMesR
If Len(sMes) = 0 Then Exit Sub
'Inicio del bucle
contador = Sheets.Count
'Solo si la celda está bien escrita, empezamos a correr el resto de la macro
If (sMesR = "Enero") Or (sMesR = "Febrero") Or (sMesR = "Marzo") Or (sMesR = "Abril") Or (sMesR = "Mayo") Or (sMesR = "Junio") Or (sMesR = "Julio") Or (sMesR = "Agosto") Or (sMesR = "Septiembre") Or (sMesR = "Octubre") Or (sMesR = "Noviembre") Or (sMesR = "Diciembre") Then
For i = 1 To contador
Sheets(i).Activate
With ActiveSheet.PageSetup
'Actualizamos el mes y el año
'Substitute Header/Footer values
.RightFooter = Application.WorksheetFunction.Substitute( _
.RightFooter, sMes, sMesR)
If (sAnyo <> sAnyoR) Then .RightFooter = Application.WorksheetFunction.Substitute( _
.RightFooter, sAnyo, sAnyoR)
End With
Next i
End If

Es posible hacer que solo reemplace si es la palabra exacta? En este caso, "Mayo"?

Un saludo y gracias.