Para trazer automaticamente a guia do mês atual para o primeiro plano depois de abrir uma pasta de trabalho, você pode simplesmente usar isso:
Private Sub Workbook_Open()
Sheets(Format(Now(), "mmmm")).Select
End Sub
NOTA: Isso só funcionará se os nomes dos meses estiverem no mesmo idioma do sistema operacional.