Deleting values on various sheets

[ipbr21054]

Hi,
I have a command button of which when run it will delete certain cell value on different worksheets.
The worksheets are all in the same workbook called ACCOUNTS

The below code is what ive done so far BUT im stuck with the code that fits where you see CODE GOES HERE
The part which i always get wrong where to tell the code to plly the deletion to what sheet

Private Sub ClearSheetValues_Click()
Dim answer As Integer
answer = MsgBox("THIS WILL CLEAR ALL CELL VALUES" & vbNewLine & vbNewLine & "ON ALL WORKSHEETS" & vbNewLine & vbNewLine & "CLICK YES TO CONTINUE", vbYesNo + vbCritical, "ACCOUNTS CLEAR VALUES MESSAGE")
If answer = vbNo Then
  Exit Sub
Else
End If

CODE TO GO HERE

End Sub

REFERENCE BELOW FOR WHICH SHEETS / CELLS NEED TO BE DELETED

INCOME (1}

Range("A4:G28").SpecialCells(xlCellTypeConstants).ClearContents
Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents

INCOME (2)

Range("A5:G28").SpecialCells(xlCellTypeConstants).ClearContents
Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents
Range("C4:G4").SpecialCells(xlCellTypeConstants).ClearContents

INCOME (3)

Range("A5:G28").SpecialCells(xlCellTypeConstants).ClearContents
Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents
Range("C4:G4").SpecialCells(xlCellTypeConstants).ClearContents

EXPENSES (1)

Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents
Range("A4:K28").SpecialCells(xlCellTypeConstants).ClearContents

EXPENSES (2)

Range("A5:K28").SpecialCells(xlCellTypeConstants).ClearContents
Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents
Range("D4:K4").SpecialCells(xlCellTypeConstants).ClearContents

EXPENSES (8)
Range("A5:K28").SpecialCells(xlCellTypeConstants).ClearContents
Range("B1:C1").SpecialCells(xlCellTypeConstants).ClearContents
Range("D4:K4").SpecialCells(xlCellTypeConstants).ClearContents

mileage (1)

Range("B1:D1").SpecialCells(xlCellTypeConstants).ClearContents
Range("A3:D29").SpecialCells(xlCellTypeConstants).ClearContents
Range("A34").SpecialCells(xlCellTypeConstants).ClearContents

 

[ipbr21054]

I dont think the error handling side of things are working.

Can we edit the code so if there is an error show message box to advise you.
Clicking OK with continue with the code down the page.
Thus me doing the same again and again.

Would this work as a test ?

Thanks for your time people.

 

[Fluff]

You should never use special cells on a single cell, as it will then work on the entire sheet.
You have also removed the error handler.

The workbook I downloaded works fine, once the sheet name was corrected, so there should be no need to change anything.

 

[ipbr21054]

If you mean post #30 it was part of my test.

I cant get my head around it working for you and not me.
Well i changed the name and still no joy.

Im asking that if yours works then please upload it and i will use that.
Then we can call it a night.

 

[Fluff]

please upload it and i will use that.

Two points
a) I cannot upload it, as I have nowhere to upload it to.
b) I'm using the workbook you supplied, so there is no point in sending it back to you.

If you are getting the error as shown in post#23, then there is a difference between that workbook & the one you uploaded.

 

[ipbr21054]

Ive just downloaded the file & recorded a short video to show what happens.

Video to show what happens,Thanks

 

[Fluff]

In the VBE click on tools, Options, General. In the Error trapping section what do you have selected?

 

[ipbr21054]

Break on all errors

 

[Fluff]

That's the problem, change it to Break in class module.

 

[ipbr21054]

Perefct that was it.

Now all fine.
Thanks very much for your time with this.

 

[Fluff]

You're welcome & thanks for the feedback.