Userform voor bepaalde cellen

[johnny1980]

Hallo
Ik heb een excel bestand gemaakt voor het werk.
Daarin heb ik een userform gemaakt die enkel zou moeten verschijnen als ik in kolom C de cellen C3, C4, C5,...... t/m 27 selecteer.
Nu verschijnt ie bij elke cel dat ik selecteer bv B29 en dat is niet de bedoeling.
ik denk dat ik ergens een range zal moeten bepalen maar ik weet niet waar en hoe.

Dit zijn de codes die ik heb gebruikt.
Voor het werkblad:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.Show
End Sub

Voor de userform:
Private Sub CommandButton1_Click()
a = ActiveCell.Row
Cells(a, "C").Value = TextBox1.Value
Cells(a, "E").Value = TextBox5.Value
Cells(a, "F").Value = TextBox2.Value
Cells(a, "G").Value = TextBox6.Value
Cells(a, "I").Value = TextBox3.Value
Cells(a, "J").Value = TextBox4.Value
Cells(a, "K").Value = TextBox7.Value
UserForm1.Hide
End Sub

Private Sub UserForm_Activate()
a = ActiveCell.Row
TextBox1.Value = Cells(a, "C").Value
TextBox5.Value = Cells(a, "E").Value
TextBox2.Value = Cells(a, "F").Value
TextBox6.Value = Cells(a, "G").Value
TextBox3.Value = Cells(a, "I").Value
TextBox4.Value = Cells(a, "J").Value
TextBox7.Value = Cells(a, "K").Value
End Sub

Private Sub UserForm_Click()
UserForm1.Hide
End Sub

Bijkomend vraagje:
Is het mogelijk om hoe zal ik het zeggen, de zichtbaarheid van de sheet te beperken dat wanneer je het bestand opendoet je enkel ziet wat er gemaakt is dus geen lege cellen ik heb al geprobeerd met scrollarea en dan bewaard maar als ik het bestand dan terug open is die instelling verdwenen.

Met veel dank,
Johnny

 

[Warme bakkertje]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    if not intersect(target,range("C3:C27") is nothing then UserForm1.Show
End Sub

 

[johnny1980]

Warm bakkertje,
Bedankt voor je snelle reactie.
Mits een kleine aanpassing lijkt hij te werken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C3:C27")) Is Nothing Then
UserForm1.Show
End If
End Sub
Groetjes Johnny