C
CindyB
I have inserted the following code into my workbook to force data entry in F3
in my worksheet - thanks to some wonderful help from members of this forum it
works perfectly!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set colf = Range("F3")
Set t = Target
If Intersect(t, colf) Is Nothing Then
If Checklit Then
If colf.Value = "" Then
Application.EnableEvents = False
colf.Select
Application.EnableEvents = True
Else
Checklit = False
End If
End If
Else
Checklit = True
End If
End Sub
However, I now need to be able to force data entry whenever the user clicks
on the following ranges: F3:f50, G3:g50, and I3:I50.
Can someone help me? I'm so frustrated........
Thanks - Cindyb
in my worksheet - thanks to some wonderful help from members of this forum it
works perfectly!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set colf = Range("F3")
Set t = Target
If Intersect(t, colf) Is Nothing Then
If Checklit Then
If colf.Value = "" Then
Application.EnableEvents = False
colf.Select
Application.EnableEvents = True
Else
Checklit = False
End If
End If
Else
Checklit = True
End If
End Sub
However, I now need to be able to force data entry whenever the user clicks
on the following ranges: F3:f50, G3:g50, and I3:I50.
Can someone help me? I'm so frustrated........
Thanks - Cindyb