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