Crear nuevo libro con nueva hoja

[eroluis]

Estimados, 

Primero que todo muy buenas tardes a todos y les expongo mi duda:

Tengo un libro en el que tengo una macro (libro origen), esta macro debe verificar si existe un libro con un nombre definido en una celda del libro origen en la misma ruta que este, en el caso de que exista, debe verificar si existe una hoja con un nombre definido por una celda del libro origen, En el Caso de no existir el libro, debe crearlo con el nombre de la celda, en el caso de existir el libro y la hoja debe crear una nueva hoja llamada "copia" y dar un mensaje de alerta. El caso es que no logro hacer para que valide la existencia del libro o la hoja con mi código:
Muchas gracias de antemano.

Sub copiar_hoja()

Dim wbOrigen As Workbook, wbDestino As Workbook

Application.ScreenUpdating = False

Set wbOrigen = ThisWorkbook

libro = ActiveWorkbook.Path & "\" & "Cuadratura Spot " & wbOrigen.Sheets("CUADRATURA").Range("A2").Value & ".xlsx"
NomHoja = wbOrigen.Sheets("CUADRATURA").Range("A1").Value

If libro <> "" Then
Set wbDestino = Workbooks.Open(libro)
Else
Workbooks.Add.SaveAs Filename:=libro
End If
wbDestino.Activate

If NomHoja = "" Then
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = NomHoja
Else
MsgBox "Ojo Hoja ya existe"
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "Copia"

End If
wbOrigen.Sheets("CUADRATURA.").Range("A1:H48").Copy
wbDestino.Activate
Sheets(Sheets.Count).Select
Range("a1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Range("a1").PasteSpecial Paste:=xlPasteFormats
Range("a1").PasteSpecial Paste:=xlPasteColumnWidths

Set wbOrigen = Nothing
Set wbDestino = Nothing
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

 

 

Libro Origen.xlsm