Just another way:

With Worksheets("Sheet1")
.Range("B7:B22,G7:G33").Clear
With .Range("A7")
.Value = (.Value + 1) Mod 1000
End With
End With


In article ,
"gregork" wrote:

Hi all,
I have a button on my worksheet that activates a userform for data entry. I
want to include on this button an event that will clear contents of cells
B7:B22 and G7:G22. Also on the same event I want a cell value (AK3) to
increment by +1. The number in AK3 is limited to 3 digits so when it gets to
999 it must go to 000 on the next activation.
Can somebody please help me with a code for achieving this.