Excel crash - bug macro?

Is there any bug in the macro below - as i'm getting an error report
when i close my excel.

Thxs



Sub columnWidthSelection5()


Dim R As Long
Dim C As Range
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

If Selection.Columns.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Columns
End If
For R = Rng.Columns.Count To 1 Step -1
If
Application.WorksheetFunction.CountA(Rng.Columns(R).EntireColumn) = 0
Then
Rng.Columns(R).EntireColumn.Columnwidth = 0.5
End If
Next R

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

Hi Al007,

> If
> Application.WorksheetFunction.CountA(Rng.Columns(R).EntireColumn) = 0
> Then

Should all be on one line:

If Application.WorksheetFunction.CountA(Rng.Columns(R). _
EntireColumn) = 0
Then

If this is not your problem, then post the relevant error message and
indicate the code line that is highlighted on error.


---
Regards,
Norman



"al007" <transferxxx@gmail.com> wrote in message
news:1132911604.303850.169160@g14g2000cwa.googlegroups.com...
> Is there any bug in the macro below - as i'm getting an error report
> when i close my excel.
>
> Thxs
>
>
>
> Sub columnWidthSelection5()
>
>
> Dim R As Long
> Dim C As Range
> Dim Rng As Range
>
> On Error GoTo EndMacro
> Application.ScreenUpdating = False
> Application.Calculation = xlCalculationManual
>
> If Selection.Columns.Count > 1 Then
> Set Rng = Selection
> Else
> Set Rng = ActiveSheet.UsedRange.Columns
> End If
> For R = Rng.Columns.Count To 1 Step -1
> If
> Application.WorksheetFunction.CountA(Rng.Columns(R).EntireColumn) = 0
> Then
> Rng.Columns(R).EntireColumn.Columnwidth = 0.5
> End If
> Next R
>
> EndMacro:
>
> Application.ScreenUpdating = True
> Application.Calculation = xlCalculationAutomatic
>
> End Sub
>

Hi Al007,

Attempting to beat line wrap, the indicated code snippet should be one
line:

If Application.WorksheetFunction. _
CountA(Rng.Columns(R).EntireColumn) = 0 Then


---
Regards,
Norman



"Norman Jones" <normanjones@whereforartthou.com> wrote in message
news:O1oIXVa8FHA.3224@TK2MSFTNGP09.phx.gbl...
> Hi Al007,
>
>> If
>> Application.WorksheetFunction.CountA(Rng.Columns(R).EntireColumn) = 0
>> Then
>
> Should all be on one line:
>
> If Application.WorksheetFunction.CountA(Rng.Columns(R). _
> EntireColumn) = 0
> Then
>
> If this is not your problem, then post the relevant error message and
> indicate the code line that is highlighted on error.
>
>
> ---
> Regards,
> Norman

Not a line wrap problem - it does not work in my personal.xls file - I
crash after use

Hi Al007,

>> If this is not your problem, then post the relevant error message
>> and indicate the code line that is highlighted on error.


---
Regards,
Norman


"al007" <transferxxx@gmail.com> wrote in message
news:1132914128.464557.267510@g47g2000cwa.googlegroups.com...
> Not a line wrap problem - it does not work in my personal.xls file - I
> crash after use