Clearcontents of range on multiple worksheets

Hi there anyway this macrop can be modified to make it more compact

Thanks

 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address <> "$H$19" Then Exit Sub
    'Code to run because H19 car rego changed .
 Application.ScreenUpdating = False
Worksheets("Back1").Range("H5:H40").ClearContents
Worksheets("Back1a").Range("H5:H40").ClearContents
Worksheets("Back2").Range("H5:H40").ClearContents
Worksheets("Back2a").Range("H5:H40").ClearContents
Worksheets("Back3").Range("H5:H40").ClearContents
Worksheets("Back3a").Range("H5:H40").ClearContents
Worksheets("Back4").Range("H5:H40").ClearContents
Worksheets("Back4a").Range("H5:H40").ClearContents
Worksheets("Back5").Range("H5:H40").ClearContents
Worksheets("Back5a").Range("H5:H40").ClearContents
Worksheets("Back6").Range("H5:H40").ClearContents
Worksheets("Back6a").Range("H5:H40").ClearContents
Worksheets("Back7").Range("H5:H40").ClearContents
Worksheets("Back7a").Range("H5:H40").ClearContents
Worksheets("Back8").Range("H5:H40").ClearContents
Worksheets("Back8a").Range("H5:H40").ClearContents
Worksheets("Back9").Range("H5:H40").ClearContents
Worksheets("Back9a").Range("H5:H40").ClearContents
Worksheets("Back10").Range("H5:H40").ClearContents
Worksheets("Back10a").Range("H5:H40").ClearContents
Worksheets("Back11").Range("H5:H40").ClearContents
Worksheets("Back11a").Range("H5:H40").ClearContents
Worksheets("Back12").Range("H5:H40").ClearContents
Worksheets("Back12a").Range("H5:H40").ClearContents
Worksheets("Back13").Range("H5:H40").ClearContents
Worksheets("Back13a").Range("H5:H40").ClearContents
Worksheets("Back14").Range("H5:H40").ClearContents
Worksheets("Back14a").Range("H5:H40").ClearContents
Worksheets("Back15").Range("H5:H40").ClearContents
Worksheets("Back15a").Range("H5:H40").ClearContents
Worksheets("Back16").Range("H5:H40").ClearContents
Worksheets("Back16a").Range("H5:H40").ClearContents
Worksheets("Back17").Range("H5:H40").ClearContents
Worksheets("Back17a").Range("H5:H40").ClearContents
Worksheets("Back18").Range("H5:H40").ClearContents
Worksheets("Back18a").Range("H5:H40").ClearContents
Worksheets("Back19").Range("H5:H40").ClearContents
Worksheets("Back19a").Range("H5:H40").ClearContents
Worksheets("Back20").Range("H5:H40").ClearContents
Worksheets("Back20a").Range("H5:H40").ClearContents
Worksheets("Back21").Range("H5:H40").ClearContents
Worksheets("Back21a").Range("H5:H40").ClearContents
Worksheets("Back22").Range("H5:H40").ClearContents
Worksheets("Back22a").Range("H5:H40").ClearContents
Worksheets("Back23").Range("H5:H40").ClearContents
Worksheets("Back23a").Range("H5:H40").ClearContents
Worksheets("Back24").Range("H5:H40").ClearContents
Worksheets("Back24a").Range("H5:H40").ClearContents
Worksheets("Back25").Range("H5:H40").ClearContents
Worksheets("Back25a").Range("H5:H40").ClearContents
Worksheets("Back26").Range("H5:H40").ClearContents
Worksheets("Back26a").Range("H5:H40").ClearContents
Worksheets("Back27").Range("H5:H40").ClearContents
Worksheets("Back27a").Range("H5:H40").ClearContents
Worksheets("Back28").Range("H5:H40").ClearContents
Worksheets("Back28a").Range("H5:H40").ClearContents
Worksheets("Back29").Range("H5:H40").ClearContents
Worksheets("Back29a").Range("H5:H40").ClearContents
Worksheets("Back30").Range("H5:H40").ClearContents
Worksheets("Back30a").Range("H5:H40").ClearContents
Worksheets("Back31").Range("H5:H40").ClearContents
Worksheets("Back31a").Range("H5:H40").ClearContents
Worksheets("Back32").Range("H5:H40").ClearContents
Worksheets("Back32a").Range("H5:H40").ClearContents
Worksheets("Back33").Range("H5:H40").ClearContents
Worksheets("Back33a").Range("H5:H40").ClearContents
Worksheets("Back34").Range("H5:H40").ClearContents
Worksheets("Back34a").Range("H5:H40").ClearContents
Worksheets("Back35").Range("H5:H40").ClearContents
Worksheets("Back35a").Range("H5:H40").ClearContents
Application.ScreenUpdating = True
End Sub

You only need to add one set of [.CODE] and[./CODE]

Maybe an array or try

Dim sht As Worksheet
For Each sht In Worksheets
If LCase(sht.Name) Like "back*" Then

Application.ScreenUpdating = False
sht.Range("H5:H40").ClearContents
End If
Next sht
Application.ScreenUpdating = True

VBA Noob

Thanks for the reply I'll give it a try and thanks for the code thingo, I was still reading when you fixed it for me...

Regards
Stephen

Just tried it and works flawlessly

Glad it helped

Thx for the feedback

VBA Noob