I was able to find part of the solution:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("h6"), Target) Is Nothing Then
AddSheet
End If
End Sub

I still need to be able to remove the text but not the formating from
h6.