Devolver nombre de una hoja en celda A1

En el siguiente evento desde la hoja actual quiero que me devuelva en la celda A1 el nombre de la hoja donde busca el código.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
ActiveSheet.Unprotect "m"
If Target.AddressLocal = "$G$2" Then
Range("B1") = ""
Range("C1") = ""
Range("F1") = ""
Set l2 = Workbooks("TARIFAS VARIOS PROVEEDORES 09-06-2014.xlsm")
'Set h2 = l2.Sheets("hoja1")
For Each h In l2.Sheets
Set b = h.Range("D:D").Find(Target)
If Not b Is Nothing Then
Range("A1") = 12.SheetsName

'Aquí he probado 

Range("A1") = h.Name

pero no me funciona, alguna sugerencia

Range("B1") = h.Cells(b.Row, "A")
Range("C1") = h.Cells(b.Row, "B")
Range("F1") = h.Cells(b.Row, "C")
Exit For
End If
Next

El resto de datos los devuelve perfectamente

Si no encuentra el dato se puede salir del evento