"and amended the range name from CurrentRegion to CourseName and I get an error."
CurrentRegion is not a range name, it's a property of the Range object (it's basically what you get by selecting a cell and pressing Ctrl+A - i.e. the whole table enclosing that cell.)
You should be using the line that Kris posted last.
Just to clarify please.
What is CompName = UNIQUE(.Range("a1").Curren
Where is Current Region in the range names? Do I need to create this? If so, please specify.