Solved: subscript out of range

[av8tordude]

I'm trying to check if a cell is empty. When I select the sheet from the combox, I get an error from the code below. Any ideas?

To check cell A1 is empty on a specific sheet, the combo box (cboYear) to select the sheet name. The combo box is on a userform.

Msgbox Sheets(cboYear).Range("A1") = ""

[HaHoBe]

Hi, av8tordude,

maybe
MsgBox Len(Sheets(cboYear.Value).Range("A1").Value) or
With Sheets(cboYear.Value).Range("A1")
If Len(.Value) = 0 Then
MsgBox .Parent.Name & " cell '" & .Address(0, 0) & "' is empty"
End If
End With Ciao,
Holger

[snb]

This suffices:


Msgbox Sheets(cboYear.Value).Range("A1") = ""

[av8tordude]

Thank you both for you help:friends:

[av8tordude]

Thank you both for your help:friends: