Function CheckBorder(ByRef vessel As Range) As Boolean
      Dim a As Range, b As Range, c As Range, d As Range, sn_
        
      CheckBorder = True
        
      ccount = vessel.Columns.Count
      rcount = vessel.Rows.Count
      stcol = vessel.Column
      strow = vessel.Row
      sn_ = vessel.Worksheet.Name
      With Sheets(sn_)
        
          Set a = .Range(.Cells(strow - 1, stcol - 1), .Cells(strow - 1, stcol + ccount))
          Set b = .Range(.Cells(strow + rcount, stcol - 1), .Cells(strow + rcount, stcol + ccount))
          Set c = .Range(.Cells(strow - 1, stcol - 1), .Cells(strow + 1, stcol - 1))
          Set d = .Range(.Cells(strow - 1, stcol + ccount), .Cells(strow + 1, stcol + ccount))
                        
          Set edge = Union(a, b, c, d)
            
          For Each e In edge
              If e.Value <> "" Then
                  CheckBorder = False
                  Exit For
              End If
          Next
      End With
End Function