View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
[email protected] mike-dot-masse@hotmail.com is offline
external usenet poster
 
Posts: 3
Default Help with a simple menu please

I definately spoke too soon. I am most certainly lost and confused
here.

got the macro in the sheet but I cant seem to make anything happen
when the sheeet is opened. Not even an error... so I am lost here. Are
there any other suggestions .. or perhaps a basic site I could go to
and learn what I am doing wrong.

Thanks again to all


On Sun, 14 Oct 2007 16:57:40 GMT, wrote:

Thanks so much for the quick reply. I am new to this stuff, but will
be playing with your suggestion to see what I can do!


Mike


On Sun, 14 Oct 2007 09:41:20 -0700, JW wrote:

On Oct 14, 10:23 am, wrote:
Hi all,

I would like to make a simple menu / macro? that will help do the
following...

When a sheet is opened, I want it to be showing a simple menu and
asking / waiting for an input -
like ...

FOR THE MAIN TASK GROUP PRESS "A"
FOR ITEMS LIST PRESS "B"
FOR ASSIGNED TIMES PRESS "C"

Excel would then wait for that input and jump to that named range

then I think when I am done with that particular area I could press
CNTRL+ HOME to go to A1 - where the "Main Menu" is ... and enter
another choice - to go to a different spot if I choose.

If someone could direct me in the right direction I would appreciate
it.

TIA

Mike


Could an input box work? In the Open event of the workbook, place
something like below (modify to suite):
Private Sub Workbook_Open()
Dim varAnswer As String
starter:
varAnswer = InputBox("Enter A, B, or C", _
"Required Input")
If varAnswer = "" Then Exit Sub
varAnswer = UCase(varAnswer)
If Not varAnswer = "A" And Not varAnswer = "B" _
And Not varAnswer = "C" Then
MsgBox "Has to be A, B, or C", , "Error"
GoTo starter
Else
Cells(1, varAnswer).Select
End If
End Sub