Delete Columns and Color Cells

I

iperlovsky

Would someone be able to provide guidance on how to write a routine to delete
columns A through AS in Sheet 1?
 
F

FSt1

hi
sub iperlovsky()
Sheets("sheet1").Columns("A:AS").ClearContents
End Sub

regards
FSt1
 
Top