Private Sub Commandbutton1_click()


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

although no reason it should not work in the initialize event.

--
Regards,
Tom Ogilvy

gregork wrote in message
...
Hi all,
Many thanks for the replies.Small problem : I'm not certain where I should
be putting this code. I have tried putting it in with the userform
initialise code but it's not working there.

Kind Regards
Gregork


"JE McGimpsey" wrote in message
...
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.