Hey Dave,

Thanks for the reply.

Unfortunately, it had the same effect as "", vbNullString and Nothing
( the other empty cell names I could think of) which is to say it
still errors out.

Any other ideas?

-Minitman



On Thu, 19 Jun 2008 17:32:16 -0500, Dave Peterson
wrote:

With no testing at all, I'd try:

Case "" '<<<< This is the line



Minitman wrote:

Greetings,

I am getting a type mismatch error on this code:
__________________________________________________ ___________________________
Public Sub rDailyColor()
'Formatting of "Daily" sheet
Dim rDailyItem As Range
Dim rInputPaidItem1 As Range
Dim rInputPaidItem2 As Range
Dim rInputTrigger As Range

' On Error Resume Next ' Had to rem this out to get the error
For iDay = 1 To 31
For iDayItem = 1 To 27
Set rDailyItem = _
Range("rDaily" & iDay & "_" & iDayItem)
Set rInputPaidItem1 = _
Range("rInput" & iDay).Offset(iDayItem, _
7)
Set rInputPaidItem2 = _
Range("rInput" & iDay).Offset(iDayItem, _
9)
Set rInputTrigger = _
Range("rInput" & iDay).Offset(iDayItem, _
34)
Select Case rInputTrigger
Case vbNullString '<<<< This is the line
With rDailyItem
.Interior.ColorIndex = xlNone
.Font.FontStyle = "Bold"
End With
Case Else
Select Case rInputPaidItem2
Case vbNullString
Select Case rInputPaidItem1
Case vbNullString
With rDailyItem
.Interior.ColorIndex = 38 '38
.Font.FontStyle = "Bold"
End With
Case Else
With rDailyItem
.Interior.ColorIndex = xlNone
.Font.FontStyle = "Bold"
End With
End Select
Case Else
With rDailyItem
.Interior.ColorIndex = xlNone
.Font.FontStyle = "Bold"
End With
End Select
End Select
Next iDayItem
Next iDay
On Error GoTo 0
End Sub
__________________________________________________ ___________________________
Any ideas as to what needs to be done to correct this problem?

Any suggestions are welcome and appreciated.

-Minitman