Sub selectmonth() Dim strName As String strName = InputBox(" What Month? ) If strName = vbNullString Then Exit Sub Else End sub
Sub SelectMonth() Dim strName As String strName = InputBox("Enter Month") If strName = vbNullString Then Exit Sub Else Select Case strName Case "January" Application.Goto Reference:="January" Case "February" Application.Goto Reference:="February" Case Else MsgBox ("MONTH NOT FOUND") Exit Sub End Select
Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.
If you're not already familiar with forums, watch our Welcome Guide to get started.
Join over 807,865 other people just like you!