Sub FormCaption() Dim frm As Form For Each frm In Forms frm.Caption= frm.Caption &"- "& CurrentUser Next End Sub