Sub Test() Dim s As Shape For Each s In ActivePage.FindShapes(, cdrTextShape) s.Text.Replace "#", CStr(Date), False, ReplaceAll:=True Next sEnd Sub