Please try this

DateD0 = wbMacro.Sheets(1).Cells(2, 5).Value2