clear inputs macro

[unhide all columns]

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

 

[Jim Thomlinson]

I see nothing wrong with the code but perhaps try this...

Sub clear_inputs_new()
'
' clear_inputs Macro
'
Range("I11:I114").ClearContents
Range("AD11:AD114").ClearContents
End Sub

 

[Gord Dibben]

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

 

[unhide all columns]

now I am getting an error that is
cannot change part of a merged cell

 

[Jim Thomlinson]

Macros and merged cells don't get along. Any possibility you could remove the
mered cell? If not then we need to code around it which is a pain. Perhpas
you could use
Format Cells... | Alignment | Horizontal | Center Across Selection

Looks similar to a merged cell but work better...

 

[Dave Peterson]

Try:

Sub clear_inputs_new()
ActiveSheet.Range("I11:I114,AD11:AD114").value = ""
End Sub