Такой вопрос как можно проверить есть ли в ячейке формула? причем именно формула, а не число. То есть проверка должна осуществляться по знаку равенства: есть ли есть знак равенства то выполлнять следующее.

Sub MakeUpperCase()
    Dim Cell As Range
     For Each Cell In Selection
  
     If если в ячейке есть знак равенства

  Then то выолнят следующее 

           Selection.Locked = False
            Selection.FormulaHidden = False
        End If
    Next Cell
End Sub

Что у меня неправильно? он убирает защиту во всех выбранных ячейках а мне надо только в тех где нет формулы...

For Each r In Selection

        If r.HasFormula Then

          msg = "формула"

        Else

          If r = "" Then

            msg = "Пусто"

          Else

            msg = "не Пусто"

          End If

        End If

        MsgBox r.Address & vbCr & msg

    Next

Dim s As String
s = Range("J19").Formula
    If Left(s, 1) = "=" Then
        Range("J21").Value = "Формула"
    End If