[RESOLVED] Why do I get a type mismatch error?

[MartinLiss]

In the active sheet I have a button that shows a userform vbmodeless which lists, by name, certain columns in the worksheet. The OK button works if the column isn't hidden but if it is I get the error. Why?

Here is my code.

Private Sub cmdOK_Click()
Dim rng As Range
Dim strColName As String

    Set rng = Range("1:1").Find(lstLabels.Value, LookIn:=xlFormulas)
    If Not rng Is Nothing Then
        rng.EntireColumn.Hidden = True
    Else
        strColName = lstLabels.Value
        Columns(strColName).EntireColumn.Hidden = False
    End If
End Sub

[jdc2000]

Try adding the specific worksheet reference.

https://www.mrexcel.com/board/thread...a-vba.1233212/

[MartinLiss]

In my case I'm trying to hide and unhide columns on the active sheet and not worksheets.

[jdc2000]

It could still be the same issue though. Did you try it to see if it made a difference?

[MartinLiss]

Thank you for your efforts. I resolved the problem which was partially due to the fact that the range should have been 2:2 and not 1:1.