Macro to clear content of cells

[jammoca]

I have an old macro that used to clear all content within all cells in column B .....

Sub ClearAll()

' ClearAll Macro
' Macro recorded 7/11/2008 by Chris

Columns("B:B").Select
Selection.ClearContents
Range("B2").Select
End Sub

I don't recall what Range("B2").Select did ... can someone explain that to me please?

Also, I need to change the code so that it clears the contents of all cells within column B, column H, column M and cell AC1 .. though I don't want cells B1, H1 and M1 cleared at all.

How might i do this?

 

[crimson_b1ade]

Range("B2").Select doesn't 'do' anything except select range B2. This is some of the noise you get when you use the macro recorder to generate macros.

Sub ClearAll()
 
' ClearAll Macro
' Macro recorded 7/11/2008 by Chris
 
Range("B2:" & "B" & Rows.Count).ClearContents
Range("H2:" & "H" & Rows.Count).ClearContents
Range("M2:" & "M" & Rows.Count).ClearContents
Range("AC1").ClearContents
 
End Sub

 

[Legacy 14611]

Sub clearem()
Dim e, x
x = Cells.Resize(1)
For Each e In Array(Columns("B"), Columns("H"), Columns("M"))
    e.ClearContents
Next
Cells.Resize(1) = x
Range("AC1").ClearContents
End Sub

Range("B2").Select just selects cell B2, which should stay selected when the code has terminated unless you do another selection in the interim.

 

[bprasad]

You could simply define the desired range :

Sub ClearRanges()
Range("B2:B65536,H2:H65536,M2:M65536,AC1").ClearContents
End Sub

 

[jammoca]

Thankyou both, they worked a charm.