Free for PREMIUM members
[Last Call] Learn how to a build a cloud-first strategyRegister Now
Dim ws As Worksheet
Dim rg As Range
For Each ws In ActiveWorkbook.Worksheets
Set rg = Nothing
On Error Resume Next
Set rg = ws.Columns("A:A").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not rg Is Nothing Then rg.EntireRow.Delete
Open in new window
Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Application.ScreenUpdating = False
Dim i As Long
i = 1
Do Until i > Cells(65536, "e").End(xlUp).Row
If Cells(i, "e").Value = "" Then
i = i + 1
Application.ScreenUpdating = True
Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.