Change email address to hyperlink w/Macro

[dkub]

I have a workbook with several sheet within and in column ther may or may not be e-mail addresses. If there is an e-mail address I want to make it hyperlink ready, I don't want to follow it or execute just make it available to be clicked on. I have some code that I am using to loop through the book and it's sheets.

Sub Workbook_CheckEmail()
    
    Dim Thiswb As Workbook      ' Workbook in
    Dim wks As Worksheet
    Dim rngCheck As Range          ' Input Sheet w/data
    Dim MySheet As String
    Dim MySheetCount As Integer
    Dim dtRow As Long

    Application.ScreenUpdating = False

    Set Thiswb = ActiveWorkbook
    Set rngCheck = Range("C1:C255")
    MySheetCount = 0
    dtRow = 2

    For Each ws In ThisWorkbook.Worksheets
    MySheet = ws.Name
        Do Until dtRow > 255
            If ws.Range("C" & dtRow).Value Like "*@*" Then
                ws.Range("C" & dtRow).Hyperlink(1) = True
            Else
            End If
        dtRow = dtRow + 1
        Loop
    MySheetCount = MySheetCount + 1
    Next ws
    
    If MySheetCount = 0 Then
        Debug.Print "No Cell Found !!!"
    Else
    End If
    
    
    Application.ScreenUpdating = True
    
End Sub

Hope this help someone that can help me - thanks in advance