what's wrong with this IF statement?

[iknowu99]

If Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.Bold = False And Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.ColorIndex <> 3 Then

thanks

 

[iknowu99]

Not sure if the coding for 'bold' and 'red' are referred to appropriately

yaikes

 

[erik.van.geit]

Hi,

did you try to parse your code into parts ??
why not try code like
If Range("A1").Font.Bold = True Then MsgBox "yes"
If Range("A1").Font.Bold Then MsgBox "yes"
or
MsgBox Range("A1").Font.Bold

... OK this works
... next part

MsgBox Application.Range("A1").Font.ColorIndex

OK

does the cell exist ?

Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Select

etcetera
why did you put Application before Cells ?
I assume wsFr is a sheetname ?

doing further tests
as I do not have more code I've made my own variable values

Dim wsFr As Worksheet
Const iSourceCol = 5
Set wsFr = Sheets(2)
MsgBox Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.Bold
MsgBox Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.ColorIndex <> 3

still working regardless what the activesheet is
works in sheetmodule

next step

Dim wsFr As Worksheet
Const iSourceCol = 5
Set wsFr = Sheets(2)
If Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.Bold = False And Application.Cells(wsFr.Cells(Rows.Count, iSourceCol).End(xlUp).Row, iSourceCol).Font.ColorIndex <> 3 Then MsgBox "hello"

shouldn't have done all those steps, since this still works ... but those steps served to show you a way how to proceed

conclusion
I cannot reproduce the error, so my guess is the variables are not properly set
what do you get with this code
(instead of the Messageboxes you could use the Locals window in VB-Editor while stepping through the code using function key F8

MsgBox iSourceCol
MsgBox wsFr.Name

errors ?

kind regards,
Erik