Adding Unique Sheets From Range Values

I am attempting to write code that runs through column G, and adds a new sheet for every unique value with out creating duplicates;

Public Sub AddSheet()
    Worksheets("Dataset").Select
    Range("A1", Range("A1").End(xlToRight)).Name = "Title"
    Range("A2", Range("G1").End(xlDown)).Name = "Data"
    Range("H2", Range("H1").End(xlDown)).Name = "Physician"
    Dim i As Integer, lastrow As Integer
    lastrow = Worksheets("Dataset").Cells(Worksheets("Dataset").Rows.Count, "H").End(xlUp).Row
    With Range("Physician")
        For i = 1 To lastrow
            If i.Value = Worksheetexists = False Then
                Sheet.Add
                ActiveSheet.Name = Worksheets("Dataset").Cells(i, 1).Value
            Else
                GoTo NextStep:
            End If
        Next
    End With

End Sub