Crear hojas modificando datos caracteres especiales

Hola espero me puedan ayudar gracias.

Tengo el siguiente código lo que hace es que busca un valor en una columna en este caso la A y selecciona un valor y crea tablas con ese valor junto con todos sus datos

Ejemplo en toda la columna A hay valores y por medio de un botón crea tablas con todos los valores de la columna A de la hoja A.DATOS por decir si tengo en la columna A de la hoja A.DATOS eduardo, juan, pablo.. Cuando hago clic al botón crea las tablas para cada uno y pega sus valores que están en la columna A de la hoja A.DATOS

Application.ScreenUpdating = False
Set h1 = ActiveSheet
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
existe = False
For Each h In Sheets
If h.Name = h1.Cells(i, "A") Then
h1.Rows(i).Copy h.Range("A" & h.Range("A" & Rows.Count).End(xlUp).Row + 1)
existe = True: Exit For
End If
Next
If existe = False Then
Set h2 = Sheets.Add(after:=Sheets(Sheets.Count))
h2.Name = h1.Cells(i, "A")
h1.Rows(i).Copy h2.Range("A1")
End If
Next
h1.Select

Lo que necesito es que existen algunos caracteres especiales ejemplo /,*,:

es que cambie esos caracteres por otros que si puedan ser creados en las nuevas hojas de excel Ejemplo en la columna A tengo valores como /Eduardo/SAS quiero que cambie ese valor de "/" por "_" y asi pueda crear la hoja para eso uso las siguientes lineas:

Columns("b:b").Select
Selection.Replace What:="/", Replacement:="_", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="~*", Replacement:="#", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=":", Replacement:="+", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Pero que en la columna A no se modifiquen ni en las demás hojas quedando el valor en las columnas como /Eduardo/SAS y en la hoja que se creo quede _Eduardo_SAS
estoy usando la versión 2007 y la hoja principal se llama A.DATOS
GRACIAS ESPERO ME PUEDAN AYUDAR.