Hi Thanks for the quick reply.

I pasted in the code you sent back and it came up with the following error,

Run-time error '1004':
Method 'Range' of object'_Global' failed.

My code now looks like this.

Sub SaveAs()
    Const Variable1 As String = "22032011"
    Application.Dialogs(xlDialogSaveAs).Show "Report" & Variable1 & ".xls"
    Range("02").Locked = False
    Range("O2").Value = Range("O2").Value + 1
    Range("o2").Locked = True
    Dim ws As Worksheet
    Dim xshape As Shape
    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
    Dim c As Range
    For Each c In Sheets("FrameChecklist").UsedRange
    If c.Locked = False Then
    c.Value = ""
End If
Next
End Sub