Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.