I think Bob meant

With Worksheets("Sheet1").Range("AK3")
.Parent.Range("B7:B22,G7:G22").Clear
If .Value = 999 Then
.Value = 0
Else
.Value = .Value + 1
End If
End With


Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!