Problem finding merged cells
All I want to do is determine if the sheet has merged cells or not.
It looks there somehow is a bug with FindFormat.
RBS
"Dave Peterson" wrote in message
...
If you're just trying to unmerge all the merged cells:
ActiveSheet.Cells.MergeCells = False
If you really want to find the first one and clear just that, ignore this
message.
RB Smissaert wrote:
Having a problem finding merged cells through VBA.
Doing it through the interface works fine and I can also record the
macro:
Sub Macro1()
With Application.FindFormat
.WrapText = False
.ShrinkToFit = False
.MergeCells = True
End With
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=True).Activate
End Sub
However if I then run the above macro it fails: Object variable or With
block not set,
which I think it can't find the merged cells.
Even when I make sure that any other formatting options are cleared I get
the same error:
Sub FindMergedCells()
Application.FindFormat.Clear
Application.FindFormat.MergeCells = True
Cells.Find(What:="", _
After:=ActiveCell, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=True).Activate
Application.FindFormat.Clear
End Sub
I know I could loop through all the cells of the used range and look for
MergeCells, but that is
much slower.
Any suggestions how to do this?
RBS
--
Dave Peterson
|