PasteToBlankColumns ThisWorkbook.Sheets("Sheet1"), 1
Sub PasteToBlankColumns(ByRef refsheet As Worksheet, ByVal colcnt As Long)
Dim ic As Long
Dim checkrange As Range
ic = 0
ic = ic + 1
Set checkrange = refsheet.Range(refsheet.Columns(ic), refsheet.Columns(ic + colcnt - 1))
If Application.WorksheetFunction.CountA(checkrange) = 0 Then
Open in new window
PasteToBlankColumns ThisWorkbook.ActiveSheet, 1
PasteToBlankColumns Application.ActiveSheet, 1
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.