Greetings !

Would anyone have some idea why this don't work - please ?

Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As Boolean)
For Each wk In Wb.Worksheets
If wk.Name = "DATA - ALL" Then
Range("F12").ColumnWidth = 100
End If
Next
End Sub

Works for me. Did you setup application events correctly?

--
HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Robin Clay" wrote in message
...
Greetings !

Would anyone have some idea why this don't work - please ?

Private Sub App_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As
Boolean)
For Each wk In Wb.Worksheets
If wk.Name = "DATA - ALL" Then
Range("F12").ColumnWidth = 100
End If
Next
End Sub

"Bob Phillips" wrote:

....for which, muchos gracias.

Works for me. Did you setup application events correctly?

Huh ?

"Bob Phillips" wrote:

From your response, you don't need them so use

Thank you !

"Tom Ogilvy" wrote:

Use the Workbook level BeforePrint

Thank you !