Insert Worksheet & Rename from Cell Value

Hi,

I have an "Open Workbook" procedure that imports some data stored locally.

Part of this procedure imports a list into cell F2 that could be anything up to 20 names in number (going down to F21)

What I'm struggling to do is to insert the same amount of blank worksheets as the list contains and rename them by the values in F2 - F21

For example the list maybe

Apple
Pear
Banana

so from this i would need 3 worksheets named Apple, Pear, Banana

I have the following code

but am unsure how to manipulate it

Any help would be appreciated