Userform Initialise not chagneing forecolor

[JeffGrant]

Hi All,

I have a userform that when initialised I would like the forecolor changed if the value in a cell is not empty.

This would give a quick visual to indictae what cells are empty.

My code is this:

Private Sub UserForm2_Initialize()

'If cellnot empty change label colour

With Sheet1
  If Range("T3").Value <> "" Then UserForm2.Opt1.ForeColor = RGB(0, 0, 255)
  If Range("U3").Value <> "" Then UserForm2.Opt2.ForeColor = RGB(0, 0, 255)
  If Range("V3").Value <> "" Then UserForm2.Opt3.ForeColor = RGB(0, 0, 255)
  If Range("W3").Value <> "" Then UserForm2.Opt4.ForeColor = RGB(0, 0, 255)
End With

UserForm2.Show
End Sub

However, in cells T3, U3, V3 & W3, the are formulas such as:

=IF(OR($P$2="No",T2=""),"",XLOOKUP(T2,$H$2:$H$25,$D$2:$D$25)), so T3 to W3, is not actually empty.

Can somebody please give me some guidance how to change the forecolor of the userform when the above formula equates to "".

Thanks

 

[Norie]

Your Initialize event is never executed, the name of the event is UserForm_Initialize regardless of the name of the userform.

 

[JeffGrant]

Your Initialize event is never executed, the name of the event is UserForm_Initialize regardless of the name of the userform.

Hi Norie, thanks for that. I changed the initialize and sure enough, the text now changes colour.

But now I have a Run-time error - 91, Object Variable or With block Variable not set showing up.

There aren't any variables in the code above.

What am I doing incorrectly ?

Thanks for your help.

 

[JeffGrant]

Found the issue. I had two UserForm2.show statements. On ein the userform code and one on the module that calle dthe userform.

Liver & Learn