Hi

Protect your sheets with code like this in the open event

Private Sub Workbook_Open()
Dim Sh As Worksheet
Application.ScreenUpdating = False
For Each Sh In ThisWorkbook.Worksheets
Sh.Protect userinterfaceonly:=True
Next
Application.ScreenUpdating = True
End Sub


and then when i do it even colors in some of my headings that
are part of an initial template ive created.

You can adapt the range
sh.UsedRange



--
Regards Ron de Bruin
http://www.rondebruin.nl


"bigdaddy3" wrote in message ...
Hi ron, tried that but as the worksheet is protected it wont work unless i
unprotect it and then when i do it even colors in some of my headings that
are part of an initial template ive created.
--
BD3


"Ron de Bruin" wrote:

Hi BD3

You can run it in a event in the thisworkbook module

This event will run when you save your workbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
On Error Resume Next
sh.UsedRange.SpecialCells(xlCellTypeBlanks).Interi or.ColorIndex = 3
On Error GoTo 0
Next sh
End Sub

See this page about events
http://www.cpearson.com/excel/events.htm


--
Regards Ron de Bruin
http://www.rondebruin.nl


"bigdaddy3" wrote in message ...
Hi ron, where would i insert that code.
--
BD3


"Ron de Bruin" wrote:

Hi bigdaddy3

With code

On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlank s).Interior.ColorIndex = 3
On Error GoTo 0

Mnual

Select your data
F5
Special..Blanks
OK
Choose a color in the formatting toolbar



--
Regards Ron de Bruin
http://www.rondebruin.nl


"bigdaddy3" wrote in message ...
i would like to automatically color all blank cells unfilled which can vary
on each sheet at close of workbook,any suggestions .The total number of blank
cells will be no more than 100
--
BD3