Hi Lloyd,

I altered the add in code a little and it ran - see if it's good enough:

For n = LBound(vData) To UBound(vData)
        If vData(n, 1) <> "" Then
        If InStr(sName, vData(n, 1)) Then
        ActiveWorkbook.Sheets(CStr(vData(n, 2))).Select
            ActiveWorkbook.Sheets(CStr(vData(n, 2))).Range("A1:" & vData(n, 3) & "100").Select
          
            For Each x In ActiveWorkbook.Sheets(vData(n, 2)).Range("A1:" & vData(n, 3) & "100").Cells
                If x.Locked = False Then
                    If x.MergeCells Then
                        x.MergeArea.Name = "MergedCells"
                        Range("MergedCells").ClearContents
                    Else
                        Select Case x.NumberFormat
                            Case "General"
                                x.ClearContents
                            Case "0"
                                x.ClearContents
                            Case "mm/dd/yy;@"
                                x.ClearContents
                            Case "$#,##0.00_);($#,##0.00)"
                                x.Value = "0"
                        End Select
                    End If
                End If
            Next
        End If: End If
    Next n