Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.