Hi there,

I have the following code that when the workbook opens input boxes pop up so users enter date and values.

This VBA works great where there is one sheet but now i have 3 sheets (sheet a, b & c) and each sheet will need the same input boxes for user input.

Is it possible for the input boxes to pop up when you click on each sheet separately ?

Any help would be greatly appreciated even if it's an entirely different solution.

Many Thanks
Option Explicit

Private Sub Workbook_Open()
    Dim cellvalue As Variant      'user date input value

ReShowInputBox:
    cellvalue = Application.InputBox _
                ("Enter the Rec Date Required(dd/mm/yyyy)")
    'ask for date
    If cellvalue = False Then Exit Sub
    'user pressed cancel button
    If IsDate(cellvalue) And CDate(cellvalue) < Date Then
        ActiveSheet.Range("Rec_Date").Value _
                = DateValue(cellvalue)
    Else: MsgBox ("Invalid Date")
        GoTo ReShowInputBox
    End If

   Sheets("Ta").Range("b4") = InputBox("Enter a amount")
   Sheets("a").Range("b5") = InputBox("Enter b amount")
End Sub