Sheets("IncStmtAssump").Range("C11:H11").NumberFor mat = _
"0.00%"

Might be what you want.

--
Regards,
Tom Ogilvy


"bforster1 " wrote in message
...
I am attempting to have certain cells on a spreadsheet format based on
the contents of a single cell. I have tried the following code byt get
a "type mismatch" error. Any suggestions??

Sub FormatIncStmtAssump()
If Sheets("IncStmtAssump").Range("B11").Value = "% of Revenue" Then
Sheets("IncStmtAssump").Range("C11:H11").Value =
Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "0.00%")
If Sheets("IncStmtAssump").Range("B11").Value = "Input" Then
Sheets("IncStmtAssump").Range("C11:H11").Value =
Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0")
If Sheets("IncStmtAssump").Range("B11").Value = "$ Change from
Previous Year" Then Sheets("IncStmtAssump").Range("C11:H11").Value =
Format(Sheets("IncStmtAssump").Range("C11:H11").Va lue, "$#,##0")
End Sub


---
Message posted from http://www.ExcelForum.com/