Private Sub ChangeColumnWidth(Width As Variant) If IsNumeric(Width) Then If Width > 0 And Width < 100 Then Me.Columns.ColumnWidth = Width ElseIf Width = 0 Then Me.Columns.ColumnWidth = Me.StandardWidth End If End If End Sub