Hi TiDz,

Try:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Dim iMax As Long
Dim i As Long
Const col As String = "H" '<<==== CHANGE

Set WB = Workbooks("YourBook.xls") '<<==== CHANGE
Set SH = WB.Sheets("Sheet1") '<<==== CHANGE
Set rng = SH.Range("A1:C1") '<<==== CHANGE

iMax = Application.Max(rng)

SH.Columns(col).Insert

For i = 0 To iMax
SH.Cells(i + 1, col).Value = i
Next i

End Sub
'<<============



---
Regards,
Norman

"TiDz" wrote in message
...
Hi Norman,
I'll try :)
I've values in one column in 41 rows from 0 to 40 and I need left of that
such quantity depending on top value of 3 cells:
if:
a1=2 b1=5 c1=4
result:
0
1
2
3
4
5
or if:
a1=3 b1=1 c1=4
result:
0
1
2
3
4


"Norman Jones" rase:

Hi TiDz,

Your question is unclear.

Please try to re-explain your needs.

--
---
Regards,
Norman



"TiDz" wrote in message
...
how to hide rows that have values from 0 to 40 in one column depending
on
top
value of 3 cells? TIA

a1=2 b1=5 c1=4

result:
0
1
2
3
4
5