Quick Excel Question

[si_the_geek]

there are quicker ways, but this should work (untested):

'this assumes xlSheet is an active Sheet object
 
Dim lRow as long, lCol as long
 
With xlSheet
  '.Application.Visible = False     '(these will make it run faster)
  '.Application.ScreenUpdating = False
 
  For lRow = 1 to .UsedRange.Rows.Count
    For lCol = 1 to 8
      '(you should probably check there is a number)
      .Cells(lRow,lCol) = .Cells(lRow,lCol) + 1
    Next lCol
  Next lRow
 
  '.Application.Visible = True     '(restore)
  '.Application.ScreenUpdating = True
End With