Run Macro from hidden sheet

[Akashwani]

Good day I have the following Macro....

Sub Wright()
'
' Wright Macro
'
'
    ActiveSheet.Shapes("Object 5").Select
    Selection.Verb Verb:=xlPrimary
End Sub

What do I need to add to this so that the Macro will run when the sheet is hidden? The Macro runs an Embeded presentation, which I do not want to be visible in the workbook.

Thanks

Ak

 

[Andrew Poulsom]

You can't Activate a hidden sheet (or a cell on it). Try the untested:

Public Sub Workbook_Open()
    Dim datatoFind
    Dim sheetCount As Integer
    Dim counter As Integer
    Dim Cell As Range
    On Error Resume Next
    datatoFind = InputBox("Please Type The Last Name of The Person You Are Searching For")
    If datatoFind = "" Then Exit Sub
    sheetCount = ActiveWorkbook.Sheets.Count
    If IsError(CDbl(datatoFind)) = False Then datatoFind = CDbl(datatoFind)
    For counter = 1 To sheetCount
        With Sheets(counter)
            Set Cell = .Cells.Find(What:=datatoFind, After:=.Cells(1, 1), LookIn:=xlFormulas, LookAt _
                :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
                False)
                If Not Cell Is Nothing Then Exit Sub
        End With
    Next counter
    If Cell Is Nothing Then
        MsgBox ("Value not found")
    End If
End Sub

 

[JamesWatkins]

What Sheet should it be put in?

im afraid i didnt read you correctly. is it just not possible to do?

my goal is for a user to be able to find a name from the 'menu' sheet, while the database is hidden

 

[Andrew Poulsom]

That code goes in the ThisWorkbook module. It loops around the worksheets looking for datatoFind without activating any sheets. If the find is successful Cell is a range object, otherwise it is Nothing. It's up to you to add some code if Cell is not Nothing, because I don't know what you want to do.

 

[JamesWatkins]

when i put it in that section and run the macro, nothing happens.

my apologies if this is redundant