New Tabs From List

I have in column M ( starting at M2 and going through to M273 ) a list of names I wish to have new Tabs automatically made for.

There are some cells in this column that are blank and therefore have no name.

I need each new Tab to be a copy of a template sheet called 'DataTemplate'.

I am currently using the following formula, and I have it pasted in the sheet code of the worksheet where the list is found ....

Sub test()
Dim r As Range
On Error Resume Next
For Each r In Range("m2", Range("m" & Rows.Count).End(xlUp))
If r.Value "" Then
Application.DisplayAlerts = False
Sheets(r.Value).Delete
Application.DisplayAlerts = True
Sheets.Add.Name = r.Value
End If
Next r
End Sub

However, the new Tabs are not being generated. I've tried saving the file, exiting and coming back in, but still no new Tabs.

What am I doing incorrectly ?