Sub ClearMeasuringUp() If MsgBox("You are about to clear the entire worksheet - Are you sure you want to proceed?", vbYesNo) = vbYes Then ActiveSheet.Range("B28:D28,F28:H28,J28:L28,P28").ClearContents Application.Goto Reference:="Diameter" Selection.ClearContents End If End Sub
|Create a Dynamic Dropdown List in Excel excluding Blanks||5||35|
|need summation of cells of the same row having same column difference between the two cells||6||33|
|Delete texts with font color||16||30|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
11 Experts available now in Live!