......except the header at A2 ?
Sub Test()
Range("E3", Range("E" & Rows.Count).End(xlUp)).ClearContents
End Sub
Hello Harky,
Do you mean E2? If so, try:-
Code:Sub Test() Range("[COLOR=#ff0000]E3[/COLOR]", Range("[COLOR=#ff0000]E[/COLOR]" & Rows.Count).End(xlUp)).ClearContents End Sub
Cheerio,
vcoolio.
Hello Harky,
Do you mean E2? If so, try:-
Code:Sub Test() Range("E3", Range("E" & Rows.Count).End(xlUp)).ClearContents End Sub
Cheerio,
vcoolio.