VBA, Lock Cells if Blank

[Benforest1]

Hey,

I have a very complex file, lots of VBA that i have taken over from someone else. I am trying to lock Column E8:E100 if the cell is not blank on a milestone tab (e.g if there is text in column E8:E100 lock the cell so no one can change it. I have tried lots and cant get it working!

I have separate VBA to lock and unlock the worksheet.

Any help much appreciated

Thanks,

 

[nemmi69]

This does it but remember that all cells start with locked selected but nothing happens till the worksheet is protected

Dim Aloop As Long

Sub LockCellIfBlank()

For Aloop = 8 To 100
    If IsEmpty(Range("E" & Aloop).Value) Then Range("E" & Aloop).Locked = True
Next Aloop

End Sub