Use select sheet instead of "In Selection"

[Livin404]

The following VBA works great, however I would like to change it to the active sheet or at least change it so the column does not highlight. There is another VBA about 3 steps down, that ends up un-bolding elements in my Column D. The name of my active worksheet is "72 Hr". I believe I will need to put something like Dim ws and Setws=Sheets('72 Hr"), but I just don't know how to properly get it in the right format.

Sub IsolateTime()
Dim cel As Range
Range("D1:D100").Select
Range(Selection, Selection.End(xlDown)).Select
For Each cel In Application.Selection.Cells
cel.Value = Right$(cel.Text, 4)
Next cel
Selection.NumberFormat = "@"
End Sub

 

[JoeMo]

Does this do what you want?

Sub IsolateTime()
Dim cel As Range
With Sheets("72 Hr").Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For Each cel In .Cells
        cel.Value = Format(Right$(cel.Text, 4), "@")
    Next cel
    .NumberFormat = "@"
End With
End Sub

 

[Livin404]

Does this do what you want?

Sub IsolateTime()
Dim cel As Range
With Sheets("72 Hr").Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For Each cel In .Cells
        cel.Value = Format(Right$(cel.Text, 4), "@")
    Next cel
    .NumberFormat = "@"
End With
End Sub

That was perfect! Thank you!

 

[JoeMo]

That was perfect! Thank you!

You are welcome - thanks for the reply.

 

[Livin404]

Hello, you helped me out a lot yesterday. I thought I could use the same basic concept for my other VBA which is similar. It does work, but the "For Each r In Selection" makes nothing happen. Just like the previous one, I just want the VBA to look for the word CALL and and ROLL in front of it for "ROLL CALL". I'm sorry for asking, but you were quick and I know the VBA would work fine if I had it look properly in Column D. Thank you again so much!
Sub addTextAtBeginningCell()

 Dim r As Range
    With Sheets("72 Hr").Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For Each r In Selection
        If r.Value = "CALL" Then r.Value = "ROLL " & r.Value
    Next
    End With
End Sub

 

[JoeMo]

Like this:

Dim r As Range
    With Sheets("72 Hr").Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
    For Each r In .Cells
        If r.Value = "CALL" Then r.Value = "ROLL " & r.Value
    Next
    End With