Hi all,

I have started with some code, but am now stuck.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "F8" Then
Select Case Target.Value
Case "Edit report"
ShiftReport

Now this is where I get stuck
The 'ShiftReport' code should carry out the following...

Check if today's date - formatted as dddd dd mmmm yyyyy - Tuesday 29 July
2008 - is found through range A2:A1000 of ReportDatabase sheet. I beleive
this range is a text string and not actually a date though
If it is then

Code:
frmEditReport.showif
it isn't then
Code:
frmReport.show

Think thats it - any help appreciated