Public Sub Borderdom(frm As Form) ' © Arvin Meyer 2010 ' Permission for use granted if Copyright is left in tact On Error GoTo Error_Handler Dim ctl As Control For Each ctl In frm.Controls With ctl If ctl.BorderStyle = 2 Then ctl.BorderStyle = 1 End If End With Next ctl Exit_Here: Set ctl = Nothing Set frm = Nothing MsgBox "Done!" Exit Sub Error_Handler: MsgBox Err.Number & ": " & Err.Description Resume Exit_Here End Sub ------------------------ Public Sub Borderline() ' © Arvin Meyer 2010 ' Permission for use granted if Copyright is left in tact On Error GoTo Error_Handler Dim ctl As Control Dim frm As Form For Each frm In Forms For Each ctl In frm.Controls With ctl If ctl.BorderStyle = 2 Then ctl.BorderStyle = 1 End If End With Next ctl Next frm Exit_Here: Set ctl = Nothing Set frm = Nothing MsgBox "Done!" Exit Sub Error_Handler: MsgBox Err.Number & ": " & Err.Description Resume Exit_Here End Sub