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 ActiveSheet.Cells(27, 14).Value = "Diameter" Application.Goto Reference:="Diameter" Selection.ClearContents End If End Sub
ActiveSheet.Cells(27, 14).Value = "Diameter"
|Office 2016 Excel Issue||4||27|
|ActiveX Listbox Multi Select in Excel 2010||8||20|
|remove upper case characters in excel||4||21|
|Getting File Name from Zip folder without extracting it||4||17|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!