detect merged cell

[kobiianardo]

hello, i'm having some speed issues with excels

i have 500 excels files and each has 2-10 sheets. i want to, on a separate sheet, have flags up for which sheet has merged cells (maybe 30-40 of them do in some weird places).


is there a fast way to do this? i only need to record yes/no for each sheet.

right now i'm scanning by the cells

 

[Leith Ross]

Hello kobiianardo,

Here is quick method of checking for merged cells on each worksheet.

Sub FindMergedCells()

  Dim Rng As Range
  Dim T As Variant
  Dim Wks As Worksheet
  
    For Each Wks In Worksheets
      T = Wks.UsedRange.MergeCells
      If IsNull(T) Or T = True Then
        'Code to log the sheet name goes here
      End If
    Next Wks
       
End Sub

Sincerely,
Leith Ross

 

[kobiianardo]

yey thanks!