Random Pattern Is Repeating

I made a code that automatically checks the date and then compares it to the date of the last save. If it is a new date then the colors of the tabs will randomize. It can also be done manually via a button. The problem is that I have now realized that the colors are always have the same pattern. Every day the first color is an orange color, no matter how many times I randomized yesterday...and so on. Is there a way to make the randomness not have a repeating pattern?

Sub MMVII_4_9_b()
Dim NewDate
If Sheets("Scrappaper"). Range("F2") = Date Then
NewDate = 0
Else
NewDate = 1
End If
'Determines whether it is a new day or not
Sheets("Scrappaper").Range("F2") = Date
'Updates the date
If NewDate = 0 Then
'Does nothing if the date is the same
Else