VBA Worksheet_SelectionChange

[GeorgeWhite]

Hi All,

I currently have a piece of code which if I select a certain cell (F6) it will show a userform. I need some help modifying this code that if the cell has a value then the userform won't popup meaning that it will only show when the cell is blank.

This is the code I currently have.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F6")) Is Nothing Then
UserForm1.Show
End If
End Sub

Many thanks

 

[VBA Geek]

you just need to add another if

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("F6")) Is Nothing Then
   If len(target.value) =  0 then UserForm1.Show
End If
End Sub

 

[GeorgeWhite]

Oh I see its that simple

Thanks for the reply VBA Geek it works exactly how I want it too now!

you just need to add another if

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Me.Range("F6")) Is Nothing Then
   If len(target.value) =  0 then UserForm1.Show
End If
End Sub