clear inputs macro

  • Thread starter Thread starter unhide all columns
  • Start date Start date
U

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
 
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
 
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
 
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...
 
Try:

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