I need help to write a macro which asks what month, and then searches for
that month in the tabs and takes the information from that worksheet

Sub PromptForMonth()
Dim res as String
Dim mnth as String
Dim sh as Worksheet
res = InputBox("Enter Month as "FEB")
if isdate(res & " 1, 2000") then
mnth = Format(cdate(res & ", 2000"),"mmm")
set sh = Worksheets(mnth)
else
Msgbox "Not a valid entry"
End if
|End Sub

--
Regards,
Tom Ogilvy


"Harps" <u18912@uwe wrote in message news:5c2a3eadc1114@uwe...
I need help to write a macro which asks what month, and then searches for
that month in the tabs and takes the information from that worksheet