I would like the code for a macro that autofits and removes any wrap text or
merged cells formats to every sheet in a workbook that does not have a
colored tab.

Is this possible?

Thanks,

Curt J

Sub foreachcoloredtab()
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.ColorIndex < 0 Then
'MsgBox ws.Name
With ws.Cells
.WrapText = False
.MergeCells = False
.Rows.AutoFit
.Columns.AutoFit
End With
End If
Next ws
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Curt J" <(E-Mail Removed)> wrote in message
news:68ED53FF-886A-4CED-90C7-(E-Mail Removed)...
>I would like the code for a macro that autofits and removes any wrap text
>or
> merged cells formats to every sheet in a workbook that does not have a
> colored tab.
>
> Is this possible?
>
> Thanks,
>
> Curt J

It worked perfectly. Thanks a lot.

Curt J

"Curt J" wrote:

> I would like the code for a macro that autofits and removes any wrap text or
> merged cells formats to every sheet in a workbook that does not have a
> colored tab.
>
> Is this possible?
>
> Thanks,
>
> Curt J

Glad to help

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Curt J" <(E-Mail Removed)> wrote in message
news:0C703811-8C5D-4030-9637-(E-Mail Removed)...
> It worked perfectly. Thanks a lot.
>
> Curt J
>
> "Curt J" wrote:
>
>> I would like the code for a macro that autofits and removes any wrap text
>> or
>> merged cells formats to every sheet in a workbook that does not have a
>> colored tab.
>>
>> Is this possible?
>>
>> Thanks,
>>
>> Curt J