formatting cells

  • Thread starter Thread starter bforster1
  • Start date Start date
B

bforster1

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").Value, "0.00%")
If Sheets("IncStmtAssump").Range("B11").Value = "Input" Then
Sheets("IncStmtAssump").Range("C11:H11").Value =
Format(Sheets("IncStmtAssump").Range("C11:H11").Value, "$#,##0")
If Sheets("IncStmtAssump").Range("B11").Value = "$ Change from
Previous Year" Then Sheets("IncStmtAssump").Range("C11:H11").Value =
Format(Sheets("IncStmtAssump").Range("C11:H11").Value, "$#,##0")
End Sub
 
Sheets("IncStmtAssump").Range("C11:H11").NumberFormat = _
"0.00%"

Might be what you want.
 
Back
Top