Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column > 1 And Target.Column < 23 Then UserForm1.Show End IfEnd Sub