MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Sub ClearContents() Dim i As Long On Error Resume Next ActiveSheet.Unprotect For i = 6 To 44 If InStr(LCase(ActiveSheet.Name), "wire") > 0 Then Range("B" & i).Select If Range("B" & i).Value = " " Then ActiveSheet.Range("i" & i & ":j" & i & ":k" & i).Cells.SpecialCells(xlTextValues).ClearContents End If End If Next i Range("A6").Select ActiveSheet.Protect Exit Sub End Sub
|How to Get a Count of Unique Values and paste them on a different tab||3||18|
|Collapse and expand table in Word 2010||2||36|
|Testing for the presence of text in a range of cells||3||15|
|Index Match Formula VBA||6||21|