Easy one for you lot paste current day of week into cell

[Luke1690]

I'm using this code to tell me what day of the week it is, as you can see by the code it shows up with a message box. i want it to paste the current weekday into a specific cell. so when clicked Tue would populate. or whatever day it was.
Sub TodaysDay()

Select Case DatePart("w", Date, vbMonday)

Case 1

MsgBox "Mon"

Case 2

MsgBox "Tue"

Case 3

MsgBox "Wed"

Case 4

MsgBox "Thur"

Case 5

MsgBox "Fri"

Case 6

MsgBox "Sat"

Case 7

MsgBox "Sun"

End Select

End Sub

 

[Georgiboy]

Remove the 'Sub day()' part

The sheet module reacts to the line:

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Once the line 'Sub day()' line has been removed, go to the relevant sheet and double click cell D11

 

[Fluff]

Just put the code I posted (untouched) into the sheet module you want it to work on. Right click the sheet tab & select view code then paste the macro into the window that opens up. Then double click on D11

 

[Luke1690]

Remove the 'Sub day()' part

The sheet module reacts to the line:

Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Once the line 'Sub day()' line has been removed, go to the relevant sheet and double click cell D11

i understand thank you. unfortunately it still didn't work when i double click d11 nothing happend.
i put the code in workbook and the worksheet and a module still didnt work?
thanks

 

[Fluff]

Delete that code from the entire workbook & then follow my instructions in post#12

 

[Luke1690]

Delete that code from the entire workbook & then follow my instructions in post#12

done it. thanks alot for sorting this and being patient with me.

cheers everyone.

 

[Fluff]

Glad it's sorted & thanks for the feedback.