VBA type mismatch error

Question

Hello there , I am trying to create an excel app on VBA, it is showing Run-time error 13: Type Mismatch error

If anyone could help me would be very nice of you :)

The code is below:

'work with the lock/unlock button on admin starts
For SheetCol = 5 To 11

SheetNm = .Cells(2, SheetCol).Value 'Sheet Name
If .Cells(UserRow, SheetCol).Value = "Ð" Then
Sheets(SheetNm).Unprotect "5896"
Sheets(SheetNm).Visible = xlSheetVisible

End If

If .Cells(UserRow, SheetCol).Value = "Ï" Then
Sheets(SheetNm).Protect "5896"
Sheets(SheetNm).Visible = xlSheetVisible
End If
If .Cells(UserRow, SheetCol).Value = "x" Then Sheets(SheetNm).Visible = xlVeryHidden

Next SheetCol
End With
'work with the lock/unlock button on admin ends

Answer 1

When you get the run-time error, there is a Debug button on the dialog. Click on that. The VBE window will open with the line containing the error highlighted in yellow. Which line of your code is it?

Answer 2

A type mismatch error always indicates that you are using the wrong kind of variable. Excel is expecting a Variant variable for a cell value, not a string. Using CVar("Ð") should fix that. Type conversion functions

But you haven't included your Dim statement for UserRow, make sure that variable is numeric as well.