probé con vuestras soluciones y seguia dandome error.
Ahora tengo este codigo y el error me lo da al hacer el return
Código:
Function checkFile(ByVal cellcheck As String) As Boolean
Dim isCorrect As Boolean
isCorrect = False
If (Range(cellcheck).Value = "") Or (Range(cellcheck).Value = FALSO) Or (Range(cellcheck).Value = "Debes cargar un archivo en esta celda") Then
Dim errorText As String
errorText = "Debes cargar un archivo en esta celda"
SetRedMyCell (cellcheck)
Else
SetWhiteMyCell (cellcheck)
'myFirstCellAreOk = True
'return true
isCorrect = True
End If
return isCorrect
End Function
No entiendo que me está pasando
Me salta un error diciendome, se esperaba fin de la instrucción