Code does not select
I have this code
Dim Bruger As String
Bruger = UCase(InputBox("Indtast brugernavn"))
If Bruger = "BUTTERFLY" Then
ActiveSheet.Unprotect
Range("2:2,4:4,8:8").Select
Selection.Locked = False
ActiveSheet.Protect Contents:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Else
ActiveSheet.Unprotect
Cells.Select
Selection.Locked = True
ActiveSheet.Protect
Exit Sub
For some reason it doesn't select anything, though it did on thr very first run.
Any ideas.
Jan
|