Text1(0).Text = Format(Date, "Long Date") Text1(0).Tag = Format(Date, "Short Date") For x = 200 To 247 Text2(x).Text = Text1(0).Tag Next