IfDate then return day of week

[treeger15]

I have a file "Blank Master" that returns the file name to cell A2...
We re-save the file daily as the date i.e "May 17, 2016" with the updated and relevant data.

I would like Cell A1 to return the day of the week once the file is re-saved as a date.

With this in A1:

=TEXT(B1,"DDDD")
---------------------
Both cells A1 and A2 return the text "Blank Master" before the new file is saved.

Please coach me up

 

[mole999]

what populates A1 and A2, if you select each do they show the same formula

 

[treeger15]

Private Sub Workbook_Open()
Dim s As String
Dim ss As String
s = ActiveWorkbook.Name
ss = Left(s, Len(s) - 5)
Sheets(1).Name = ss
ActiveWorkbook.Sheets(1).Range("b1") = ss
End Sub

Then in Cell A1 I have this formula

=TEXT(B1,"DDDD")