Display Dates Without Month, Day & Year Separators

I have the below find and replace code that is now working. I double checked the syntax and can't find a reason why. The errors I get are Overflow and 400.

'format column with custom date format.
Public Sub formatDate()
Dim charHold As Date
What = m / d / yyyy
repl = yyyymd
Cells.Replace What:=What, Replacement:=repl, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub