Works for me.

You could shorten it a bit.

Sub clear_inputs_new()
'
' clear_inputs Macro
'
ActiveWindow.ScrollRow = 1
Range("I11:I114,AD11:AD114").ClearContents
End Sub


Gord Dibben MS Excel MVP

On Mon, 26 Apr 2010 11:59:01 -0700, unhide all columns
wrote:

THis macro seems to be clearing all items from the sheet
I only need it to clear the rows i have listed
Sub clear_inputs_new()
'
' clear_inputs Macro
'
ActiveWindow.ScrollRow = 1
Range("I11:I114").Select
Selection.ClearContents
Range("AD11:AD114").Select
Selection.ClearContents
End Sub