How to make a locked cell auto update

My mistake I put a zero in place of the letter O. Try:

Sub SaveAsThis()

Const Variable1 As String = "22032011"
Dim ws As Worksheet
Dim xshape As Shape
Dim c As Range

Application.Dialogs(xlDialogSaveAs).Show "Report" & Variable1 & ".xls"
Range("O2").Locked = False
Range("O2").Value = Range("O2").Value + 1
Range("O2").Locked = True
For Each ws In ThisWorkbook.Worksheets
    For Each xshape In ws.Shapes
        If xshape.Type = msoFormControl Then
            xshape.ControlFormat.Value = False
        End If
    Next
Next
For Each c In Sheets("FrameChecklist").UsedRange
    If c.Locked = False Then
        c.Value = ""
    End If
Next
End Sub

On your second question, it might look something like this:

Range("A48,A49,C18,C25,C37,C45,C47").ClearContents