doesn't work code based on hidden sheet

Ali

You need to

1. comment out the Set line (which will cause an error if such a named sheet doesn't exist) and
2. swap your tests to check using ISREF first then, once you know the RUN sheet exists, name it and test for visibility

Changes in bold (with comments) below:

Sub run_macro()
Dim ws As Worksheet
' don't use this line (or may cause error)
'Set ws = Sheets("RUN")

'see if Run sheet exists
If Evaluate("ISREF('" & "Run" & "'!A1)") = True Then
    ' check if Run is hidden by VBA
    If Not Worksheets("Run").Visible = xlVeryHidden Then
        ' if it's NOT hidden by VBA, call other macro and quit
        Call v '! Or Macro Name
        Exit Sub
    Else
        'if it IS hidden by VBA, do nothing but...
    End If
End If

'... clear A2 and tell user if there's no Run sheet or it's hidden
Range("A2").Value = ""
MsgBox "Sorry you can't run this macro, please check with admin.", vbCritical

End Sub


Sub v()
Range("A2").Value = "Unhidden Run sheet found"
End Sub

I've added comments in case I did not understand correctly your intent of your question/ discussion point (and so you can swap outcomes if needed)

Remember that you are only testing for xlVeryHidden (which can only set by VBA)- this test will not work with sheets which are manually hidden by a user.

Hope this works for you.