ExcelBanter - Locking non-Validation cells in ranges

ExcelBanter (https://www.excelbanter.com/)

- Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)

- - Locking non-Validation cells in ranges (https://www.excelbanter.com/excel-worksheet-functions/156718-locking-non-validation-cells-ranges.html)

Locking non-Validation cells in ranges

Having trouble getting the following to do.
Any advice would be good.
Sandy

Dim rngPossibleValidation As Range
Dim rngValidation As Range

Set rngPossibleValidation = Range
("O4,05,C14:K14,M14:U14,C15:K15,M15:U15,C21:K21,M2 1:U21,
C23:K23,M23:U23,C27:K27,M27:U27,C33:K35,M33:U35,C3 9:K41,
M39:U41,C53:K53,M53:U53,C56:K56,M56:U56,C59:K59,M5 9:U59")

rngPossibleValidation.Cells.Locked = True

Set rngValidation = Cells.SpecialCells(xlCellTypeAllValidation)
rngValidation.Cells.Locked = False

Locking non-Validation cells in ranges

Oops - just realised i have posted this in the wrong group - sorry. I will
repost in the correct area with a little more info
Sandy

"Sandy" wrote in message
...
Having trouble getting the following to do.
Any advice would be good.
Sandy

Dim rngPossibleValidation As Range
Dim rngValidation As Range

Set rngPossibleValidation = Range
("O4,05,C14:K14,M14:U14,C15:K15,M15:U15,C21:K21,M2 1:U21,
C23:K23,M23:U23,C27:K27,M27:U27,C33:K35,M33:U35,C3 9:K41,
M39:U41,C53:K53,M53:U53,C56:K56,M56:U56,C59:K59,M5 9:U59")

rngPossibleValidation.Cells.Locked = True

Set rngValidation = Cells.SpecialCells(xlCellTypeAllValidation)
rngValidation.Cells.Locked = False