Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
|Help to break down spreadsheet||3||40|
|VB.Net Exporting Excel Woorkbook to PDF||7||60|
|Tricky shapes formula part 3||4||32|
|Vbscript Help Needed - Protecting Queries from special characters / SQL Injection||11||16|