Hi

I need to loop through several colums and change blanks to zeros.
I know how to loop through a cloumn but how do I loop through several columns.

Thanks

Andrew

Cheers
Tony

__________________
Cheers
Tony

Your would write a loop inside a loop as follws:


'start code
Dim intCol as integer, intRow as integer

intCol = 1
intRow = 1


Do While intCol <> "your max value of columns"

  Do While intRow <> "your max value of rows"
    If Cells(intRow, intCol) = "" then Cells(intRow, intCol) = 0
    intRow = intRow + 1
    if intRow = "your max value of rows" Then Exit Do
  Loop
    intCol = intCol + 1
    if intRow = "your max value of Columns" Then Exit Do
Loop

'end code