Stick this within the with statement

..columns("h:iv").columns.columnwidth=15

--
Don Guillett
SalesAid Software

"Hazel" wrote in message
...
Hi Don

Is it that easy? of course it is when you know how eh!
Just one query what would I insert to make all column width's on every
sheet
in the workbook from Column "H" in workbook be 15 instead of the default
8.43.

Once again thank you for your time and effort it's made my day -- Merry
Christmas and a Happy New Year.



--
Many thanks

hazel


"Don Guillett" wrote:

try

NewMacro() 'UN tested

For Each ws In Worksheets
If ws.Name < "Sheet1" And ws.Name < "Sheet2" And ws.Name < "Sheet3"
Then

With ws

..Range("F3:F52").Copy .Range("H3")
..Columns("H:H").Insert Shift:=xlToRight
..Range("F3:F52").ClearContents

'what about this line for each sheet
'Sheets("Club Account").Range("A2:C26").ClearContents

'I don't understand what you want here but guess its for the ws?
..Range("A2:C26").ClearContents

'Application.Goto Sheets("K.Barber").Range("F3")'??

Dim cell As Range

..range("i3:i53").interior.colorindex=xlnone
For Each c In .Range("I3:I53")
If IsNumeric(c) and c.Value 5 Then .c.Interior.Color = RGB(0, 255, 0)
next c

End With
End If
Next ws
End Sub


--
Don Guillett
SalesAid Software

"Hazel" wrote in message
...
Hi All

Been trying for 3 hours to get the following 2 Macros to work together
just
keep getting errors after all my efforts, there are 26 sheets in the
workbook

Sub Macro2()

For Each ws In Worksheets
If ws.Name < "Sheet1" And ws.Name < "Sheet2" And ws.Name < "Sheet3"
Then

With ws

.Range("F3:F52").Copy .Range("H3")
.Columns("H:H").Insert Shift:=xlToRight
.Range("F3:F52").ClearContents

'what about this line for each sheet
Sheets("Club Account").Range("A2:C26").ClearContents
Application.Goto Sheets("K.Barber").Range("F3")


End With



End If

Next ws

End Sub


Sub Macro5()


Dim cell As Range

For Each cell In Range("I3:I53")
'test for a numeric value first
If IsNumeric(cell.Value) Then
'test the value of the cell
If cell.Value 5 Then
'color if greater than 5
cell.Interior.Color = RGB(0, 255, 0)
Else
'clear color if not greater than 5
cell.Interior.ColorIndex = xlNone
End If

End If

Next

End Sub

I can get them to run OK separately but Macro 5 will not run on all the
worksheets, at the same time it would also be good if when running the
macro's it sets all the column widths from Column H onwards to 15.

--
Many thanks

hazel