Macro help for clearing contents

[Skumby]

I have spreadsheets that we print to PDF via macro. The boss wants me to add a step that once the spreadsheet is printed to PDF it clears the contents.

I have created this but the ClearContents step needs debugging. Please help

Sub POSaveAs()

'
Dim strFilename As String
Const strPath As String = "F:\Timesheets\Approved Timesheets"


strFilename = Value & "EMP" & " - " & Range("J5") & " - " & Range("J2") & " - " & Replace(Range("A23").Value, "/", "-")

ChDrive "F:\Timesheets\Approved Timesheets"
ChDir strPath

Application.DisplayAlerts = False

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename, IgnorePrintAreas:=False, OpenAfterPublish:=True

Application.DisplayAlerts = True

Range("C10:I23").ClearContents

End Sub

 

[Logit]

.
What issue are you having with the line : Range("C10:I23").ClearContents ?

It works here.

 

[Skumby]

.
What issue are you having with the line : Range("C10:I23").ClearContents ?

It works here.

When I click on the button to run the macro it is asking to debug that line?

 

[Logit]

.
Well, try this : ActiveSheet.Range("C10:I23").ClearContents

 

[Skumby]

I just tried it again with the same result.

 

[Logit]

What is the name of the worksheet you are attempting to clear the contents ?

 

[Skumby]

I'm such a nitwit, it was due to the protection. in a row in the middle of the cell selection. Its working now, thank you

 

[Logit]

Ok. Glad you have an answer.