I have a code in worksheet selectionchange
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Column > 5 And Target.Column <= 19 Then
If Target.Value = "-" Then
Target.Select
Application.SendKeys "{F2}"
LettersForm.Show 0
End If
End If
End Sub