L
LondonHawk
Hello,
I have a summary timetable sheet, and each customer has a differen
colour. If someone is due to visit them on day x, then the cell i
shaded in that particular customer.
I then have an individual sheet for each customer and I want to be abl
to copy the formatting from the summary to the individual custome
sheet without having to cut and paste for each individual customer.
This is what I have so far
Dim Cell As Object
Dim CurrentCell As Object
Range("B10:Y200").Select
For Each Cell In Selection
If Cell.Interior.ColorIndex = 52 Then
Cell = CurrentCell
Sheets("CustA").Select
Range(CurrentCell).Select
Cell.Interior.ColorIndex = 52
Sheets("Summary").Select
End If
Next Cell
Any ideas, thanks in advance
Ada
I have a summary timetable sheet, and each customer has a differen
colour. If someone is due to visit them on day x, then the cell i
shaded in that particular customer.
I then have an individual sheet for each customer and I want to be abl
to copy the formatting from the summary to the individual custome
sheet without having to cut and paste for each individual customer.
This is what I have so far
Dim Cell As Object
Dim CurrentCell As Object
Range("B10:Y200").Select
For Each Cell In Selection
If Cell.Interior.ColorIndex = 52 Then
Cell = CurrentCell
Sheets("CustA").Select
Range(CurrentCell).Select
Cell.Interior.ColorIndex = 52
Sheets("Summary").Select
End If
Next Cell
Any ideas, thanks in advance
Ada