Hi Tom,

Changing the "Format", "Style" and Changing the Font from "Ariel" to
"Tahoma" ONLY Seems to Change the "Column Letters" and "Row Numbers",
it does NOT Change the Cells within the Spreadsheet. I tried Selecting
a Single Cell - Hitting the F5 Function Key - Special - Check Blanks -
OK, but this ONLY Changes them down to the Last Cell with Data in, it
IGNORES from there to "IV65536".

Thanks for your Help.
All the Best
Paul



"Tom Ogilvy" wrote in message ...
so any entry in a new, unused cell will be Tahoma.
Tom, Unfortunately this is NOT the Case

We must be talking about differnt things. It certainly is true for me.

--
Regards,
Tom Ogilvy

"Paul Black" wrote in message
...
Thanks to Everyone who has tried to Solve my Problem, I think I will
have to do it the Long Handed Way.

so any entry in a new, unused cell will be Tahoma.
Tom, Unfortunately this is NOT the Case.

Even doing it the Long Handed Way, there are still going to be
Problems, like if they were to Insert a Column, that Column would
Automatically Default to the "Ariel" Font.
Not to Worry, the Task will still be Done, but just take much longer
than I anticipated.
Once again, Thanks to Everyone for their Contributions.

All the Best
Paul



"Tom Ogilvy" wrote in message
...
You said:
I have Managed to Change the Column
Letters and Row Numbers from "Ariel" to "Tahoma" by using "Format",
"Style" and then Modifying the Font.


so any entry in a new, unused cell will be Tahoma.

--
Regards,
Tom Ogilvy

"Paul Black" wrote in message
...
Hi,

Norman,
Your Macro Works and Changes ALL the Cells from A1 to IV65536 to
"Tahoma", Even those which have the Font of "Comic Sans MS" and
"Verdana", which I want Left as they are.

Tom,
When the Spreadsheet was First Created in 2002, the Normal Font was
Set to "Ariel". So ANY Input Automatically became "Ariel".
Once I have Managed to Achieve my Goal, the Spreadsheet will be given
back to the User, and then Any Additional Information Input ( Anywhere
in the Workbook ) will Automatically be in the Font "Tahoma".

Thanks also to Myrna Larson and swatsp0p for your Contributions.

All the Best
Paul



"Norman Jones" wrote in message
...
Hi Swatsp0p,

I have no problem with the manual approach except that it is very
substantially slower than the programmatic solution. Using my
procedure,
I
was able to process a five sheet workbook in approximately the same
time
as
I was able to process a single sheet manually. This, of course,
presupposes
the existence of the code. <g



Incidentally, you could remove a redundant step from your
suggestion:
instead of making an entry in cell IV65536 and later deleting the
entry,
simply format it as Tahoma. No subsequent deletion is required and
the
requisite used range is established.


That said, discussion as to the merits or demerits of one approach
over
another is moot to the extent that the solution represents the
resolution of
a problem that I would not expect to encounter.

---
Regards,
Norman



"swatsp0p" wrote in message
...
What happens if you put an entry in cell IV65536 then did:
Select a single cell | Hit the F5 function key | Special | Check
Blanks |
OK
With the blank cells now selected, apply your desired formatting.

Once formatted, delete the entry in IV65536?

"Norman Jones" wrote:

Hi Paul,

If you really to format ALL empty cells on each worksheet, you
can
try
the
following:

Sub Tester()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
With sh
If Intersect(.UsedRange, .Cells(Rows.Count, _
Columns.Count)) Is Nothing Then
.Cells(Rows.Count, Columns.Count).Font.Name = "Tahoma"
End If
On Error Resume Next
.Cells.SpecialCells(xlBlanks).Font.Name = "Tahoma"
On Error GoTo 0
End With
Next sh
End Sub

This is not likely to be excessively fast!

---
Regards,
Norman



"Paul Black" wrote in message
...
Thanks Myrna,

I tried your Suggestion, it Worked for ALL Blank Cells from
"A1" to
the Last Cell with Something in. It Ignored from that Cell to
Cell
IV65536.

All the Best
Paul



Myrna Larson wrote in
message
. ..
Edit/Goto, click the Special button. Select Blanks. Then apply
the
formatting
you want. To do this in a macro, turn on the macro recorder,
do it
manually,
stop the recorder and look at the code it generated.


On 9 Sep 2004 15:04:30 -0700, (Paul
Black)
wrote:

Hi Tom,

Thanks for the Reply.
Your Macro does change ALL the Blank Cells ( A1:IV65536 )to
"Tahoma",
Unfortunately it also Changes Cells that have Data in. I Only
want
Blank Cells to be Changed.

All the Best
Paul



"Tom Ogilvy" wrote in message
...
Sub Tester()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
On Error Resume Next
sh.Cells.Font.Name = "Tahoma"
On Error GoTo 0
Next sh
End Sub

Although, it seems to me if you set the font for the normal
style
to
Tahoma,
it should make that the default for blank cells unless the
have
previously
been set to a different font.

Another think you could do is go to a sheet that is
formatted
the
way
you
want it. click on the intersection and do Edit=Copy, go
to
this
sheet,
select A1 and do Edit=PasteSpecial and select formats.
If
that
does
more
than you want, you can close the workbook without saving
changes.

--
Regards,
Tom Ogilvy


"Paul Black" wrote in message
...
Hi Norman,

Thanks for the Reply.
I First tried the Manual Method, and this did work
Between
Cells
A1
and the Last Active Cell, But it Ignored Everything
Between
the
Last
Active Cell and Cell IV65536.
I then tried the Macro and Got Exactly the Same Results.

All the Best
Paul



"Norman Jones" wrote in
message
...
Hi Paul,

Manually:

Select a single cell | Hit the F5 function key |
Special |
Check
Blanks
OK
With the blank cells now selected, apply your desired
formatting.

Repeat for each worksheet.

Programmatically, try:

Sub Tester()
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
On Error Resume Next
sh.Cells.SpecialCells(xlBlanks).Font.Name =
"Tahoma"
On Error GoTo 0
Next sh
End Sub

---
Regards,
Norman



"Paul Black" wrote in
message
...
Hi Everyone,

I have been given a Spreadsheet which needs Updating.
The Current ( Default on Excel for the Person that
the
Sheet
Belongs
to ) Font is Set to "Ariel". I have Managed to Change
the
Column
Letters and Row Numbers from "Ariel" to "Tahoma" by
using
"Format",
"Style" and then Modifying the Font.
All the Cells in the Spreadsheet ( and Workbook )
that
have
Information and Formulas in are Either "Tahoma" or
"Comic
Sans
MS"
Font.
What I would Ideally like is a way of Changing ALL
the
Empty
"Ariel"
Cells ( A1:IV65536) to Empty "Tahoma" Cells in Both
the
Worksheet AND
the Workbook.
I would like a Method of Achieving this Manually AND
with
a
Macro if
Possible Please.
I am using XP and XL2002.

All the Best
Paul