Aqui está uma UDF que você pode usar para obter o nome da planilha, no estilo desejado. Por favor note que não verifica se é um formato de data válido, simplesmente joga o /
entre cada dois números. Coloque isso em um módulo de pasta de trabalho.
Function sheetNameToDate()
Application.Volatile
Dim shtNm As String
shtNm = ActiveSheet.Name
sheetNameToDate = Left(shtNm, 2) & "/" & Mid(shtNm, 3, 2) & "/" & Right(shtNm, 2)
End Function
Assim, em uma planilha, em qualquer célula, você pode digitar =sheetNameToDate()
e ele retornará o nome da planilha no formato 01/01/17
, 02/01/17
, etc. Você pode fazer um formato condicional que seja, por exemplo, =sheetNameToDate()="01/01/17"
e ele retornará TRUE
se isso for verdade.