pop up box, searching worksheets and running macros help please

[Paul]

I have a workbook The first sheet is a summary of a work roster. Then there
are other sheets with each day of the month. Is it possible to design a pop
up box, which lets the user input a date, then goes to that worksheet? The
dates for each seperate worksheet are found in a2 of every sheet.

would so love your help.... Thanks in advance

[pianoman]

I think you would want to fetch the date you want with something like

WantDate = Application.InputBox("Enter Date Required")

then search through each worksheet comparing WantDate with A2

Something like...

numofsheets = Activeworkbook.sheets.count
i = 1
while i <= numofsheets
do
sheets(i).activate
if Range("A2") = WantDate
exit sub
else
i = i+1
loop
wend


Not tried it, but it should be close!

Regards,

Gareth

I have a workbook The first sheet is a summary of a work roster. Then there
are other sheets with each day of the month. Is it possible to design a pop
up box, which lets the user input a date, then goes to that worksheet? The
dates for each seperate worksheet are found in a2 of every sheet.

would so love your help.... Thanks in advance

[anusha2525]

Hi,

For user entry you can use input box

dim var
var=application.inputbox("prompt message")
then you could loop through all the sheet and compare the var value with cell a2 in each sheet.