How to differentiate when a sheet is selected manually or via VBA

[Rodanenb]

I have a sheet ("SheetName") which contains a warning pop-up when it is selected manually, using the code below:

Private sub Worksheet_Activate()

If Msgbox("warning text",vbOkOnly)=7 then
end if

End Sub

which works fine when the sheet is selected.

However, I also have another macro which updates the data in this sheet from a masterfile, and when the code below is run:

Sheets.("SheetName").Select

this also triggers the warning. Is there any way to differentiate if the worksheet selection is manual by the user or triggered by another line of VBA code?

Thanks

Robert

 

[circledchicken]

Hi and welcome to the forum,

In your other macro, you can temporarily disable events, something like this:

Application.EnableEvents = False


Sheets("SheetName").Select


Application.EnableEvents = True

By the way, for your warning message code, this should suffice (unless there is something I'm missing):

[I]Private sub Worksheet_Activate()

[/I]MsgBox "warning text", vbOKOnly[I]

End Sub[/I]

Also, note that you rarely need to select sheets to work with them, so you might be able to avoid the issue altogether if you can adjust your code to reflect that.

 

[Rodanenb]

thanks for the welcome and the info - works perfectly!