Find(What:=

[bsquad]

I am sure this is just the dumbest thing I am overlooking, but does anyone have any insight as to why this first one works and the second brings back a error 91 Object variable or with block variable not set. Both my variables or 'Set' are declared as Ranges - hence having a .Row and a .Column in the MsgBox

            Application.FindFormat.Clear
            Application.FindFormat.Interior.Color = RGB(216, 219, 216)
    Set zRGB216 = ActiveSheet.Columns("A:AA").Find(What:="*", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, _
                                                            SearchFormat:=True)
MsgBox (zRGB216.Row)

            Application.FindFormat.Clear
            Application.FindFormat.Borders(xlEdgeRight).Weight = xlMedium
    Set xlBorder = ActiveSheet.Columns("A:AA").Find(What:="*", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=True)
MsgBox (xlBorder.Columns)

 

[Rick Rothstein]

...but if anyone has additional ways to use FindFormat / Find with Borders I am open to hear it.

[table="width: 500"]
[tr]
	[td]Sub FindRightmostCellWithRightBorder()
  Dim LastRightBorderCell As Range
  Application.FindFormat.Clear
  With Application.FindFormat.Borders(xlRight)
      .LineStyle = xlContinuous
      .ColorIndex = 0
      .TintAndShade = 0
      .Weight = xlThin
  End With
  Application.FindFormat.Borders(xlBottom).LineStyle = xlNone
  Application.FindFormat.Borders(xlDiagonalDown).LineStyle = xlNone
  Application.FindFormat.Borders(xlDiagonalUp).LineStyle = xlNone
  Set LastRightBorderCell = ActiveSheet.UsedRange.Find("", , , , xlByColumns, xlPrevious, SearchFormat:=True)
  Application.FindFormat.Clear
  
  MsgBox "Rightmost cell with a right border: " & LastRightBorderCell.Address(0, 0)
End Sub[/td]
[/tr]
[/table]