Добрый день!
Option Explicit
Public NoProtectRange As Range, PCell As Range
Sub Test()
Set NoProtectRange = Nothing
For Each PCell In Range("A1:AA650")
If Not PCell.Locked Then
If NoProtectRange Is Nothing Then
Set NoProtectRange = PCell
Else
Set NoProtectRange = Application.Union(NoProtectRange, PCell)
End If
End If
Next PCell
If Not NoProtectRange Is Nothing Then NoProtectRange.Select
End Sub
С уважением, Сергей Густокашин. Тольятти, Комсофт. ICQ 75307217

Виноват, не учел специальных пожеланий:), все таки 10 лет прошло.
Можно закомментировать строку, что ниже показана, может будет лучше выглядеть на печати.
If Not NoProtectRange Is Nothing Then NoProtectRange.Select