On 30 Oct, 21:28, JE McGimpsey wrote:
So change the code in the ThisWorkbook module to

Private Sub Workbook_Open()
CheckCorrectSheet
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
CheckCorrectSheet
End Sub

Private Sub CheckCorrectSheet()
Const csMsg As String = _
"Are you sure you want to Enter data on " & _
vbNewLine & vbNewLine & " "
MsgBox csMsg & ActiveSheet.Name & " ?"
End Sub

In article .com,



" wrote:
Many thanks for the reply - not sure if I explained well enough, but I
want the pop up to appear every time you click another sheet, and not
just when you open the Workbook - which this seems to do.
The reason is that we've had people enter data on incorrect sheets and
this will be a visible reminder to them to select the correct sheet
before entering data.- Hide quoted text -

- Show quoted text -

Cheers J E - don't know what your name is!