open_in_new
content_copy
Sub Clearcells() 'Updateby Extendoffice Range("B8", "B12").Clear End Sub