Macro to Clear Data in selected cells

[bamaisgreat]

Getting Errors when I run the code below. If i different data in the cells from when I recorded the macro I get errors.

Sub Clear_Sheet()
'
' Clear_Sheet Macro
'


'
    Range("A5:A39,C5:H39,K5:P39,T5:AA39,K1:O1,F1:I1,F2:I2,Z2").Select
    Range("Z2").Activate
    ActiveWindow.SmallScroll Down:=18
    Range( _
        "A5:A39,C5:H39,K5:P39,T5:AA39,K1:O1,F1:I1,F2:I2,Z2,E42:P59,U42:W42,Q42:R59,U42:AA59" _
        ).Select
    Range("U42").Activate
    ActiveWindow.SmallScroll Down:=-33
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=6
    Range("S42:T42").Select
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False
    Range("E42").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("Q42:R42").Select
    ActiveCell.FormulaR1C1 = "5"
    Range("E42").Select
    Selection.ClearContents
    Range("Q42:R42").Select
    Selection.ClearContents
End Sub

 

[Beyond_avarice]

Aaah the Macro Recorder. We meet again. I think this is what you are trying to do:

ActiveSheet.Range("A5:A39,C5:H39,K5:P39,T5:AA39,K1:O1,F1:I1,F2:I2,Z2,E42:P59,U42:W42,Q42:R59,U42:AA59" _
        ).Clear

 

[bamaisgreat]

Thanks for the help. I noticed that when I run the macro it deletes the borders and formatting. I need only to delete the data that is in the cell.

Thanks

 

[My Aswer Is This]

Best way to learn Vba is to try and read script:

See hear "Clear" clears contents and formatting. Try ClearContents instead like this:

ActiveSheet.Range("A5:A39,C5:H39,K5:P39,T5:AA39,K1:O1,F1:I1,F2:I2,Z2,E42:P59,U42:W42,Q42:R59,U42:AA59" _
        ).ClearContents

 

[bamaisgreat]

I dont understand. When I run the simple code it says it cant do that to a merged cell. There are lots of merged cells in my worksheet Ive never had this issue before. Also how can I modify the code above to clear sheets 1 thru 26 in the same cells? Thanks for you help

 

[My Aswer Is This]

I never deal with merged cells. I do know most all experts on this forum discourage using merged cells.

I think some how we would need to sort out that problem before we attempt to clear contents on 26 sheets.

But this is how you would do it on Sheets 1 to 26 in your Workbook.

Sub Clear_Me()
Application.ScreenUpdating = False
Dim i As Long
    For i = 1 To 26
        Sheets(i).Range("A5:A39,C5:H39,K5:P39,T5:AA39,K1:O1,F1:I1,F2:I2,Z2,E42:P59,U42:W42,Q42:R59,U42:AA59").ClearContents
    Next
Application.ScreenUpdating = True
End Sub