VBA If Range equals Active Cell then paste "Specific Text" to corresponding column

[Falko26]

Hey Team,

I'm trying to write a VBA code to fill in the status column of a table with either "Open" or "Closed" based on if the job number column of the table equals the active cell selected. I'm working between two sheets.

What I'm trying to do is select a specific job number from the Project Information list on sheet "Received %".
Then run the "Open Project" Macro which will look to the sheet "Open" and if column "Job Number" = Active cell then paste the word "Open" into corresponding cells in the column "Status"

Then ill duplicate this code to make a "Close Project" Macro to do the opposite action.

Otherwise if using the active cell value doesn't work I thought we could do a "Open Project" Macro that brings up a list of unique Job Numbers from the "Open" sheet that you can pick from to do the same action. but that's a little advanced for my knowledge not even sure if that's an option.

But I would like to add a Message box at the end that asks the user if they are sure they want to "Close" or "Open" said Job Number before running Macro.

Sheet "Received %"

Sheet "Open"

Thanks!

 

[Fluff]

I've learnt most of what I know from here, so don't really know what the various online resources are like.