Modify macro to run on active worksheet only 2

[garvock]

I use a macro to replace formulas with values, I need to modify it to run on the active worksheet only.Please help, I do not understand visual basic. Here is the code:
Sub FormulasToValues()
'
' Replace all formulas with values
'

WCount = Worksheets.Count
For i = 1 To WCount
If Worksheets(WCount - i + 1).Visible Then
Worksheets(WCount - i + 1).Select
RCount = ActiveCell.SpecialCells(xlLastCell).Row
CCount = ActiveCell.SpecialCells(xlLastCell).Column
For j = 1 To RCount
For k = 1 To CCount
Worksheets(WCount - i + 1).Cells(j, k) = Worksheets(WCount - i + 1).Cells(j, k).Value
Next k
Next j
End If
Next i

End Sub

Thanks in anticipation!!

 

[mrmovie]

Sub FormulasToValues()
'
' Replace all formulas with values
'


RCount = ActiveCell.SpecialCells(xlLastCell).Row
CCount = ActiveCell.SpecialCells(xlLastCell).Column
For j = 1 To RCount
For k = 1 To CCount
Worksheets(WCount - i + 1).Cells(j, k) = Worksheets(WCount - i + 1).Cells(j, k).Value
Next k
Next j


End Sub

 

[garvock]

Thanks Mrmovie for that info. It works well but only on the first worksheet not on the active worksheet. Any other suggestions?
Thanks again!

 

[SkipVought]

Hi,

Simplify!

Sub FormulasToValues()
    Dim ws As Worksheet, r As Range
    For Each ws In Worksheets
        With ws
            If .Visible Then
                For Each r In .UsedRange
                    With r
                        .Value = .Value
                    End With
                Next
            End If
        End With
    Next
End Sub

Skip,

_{[red]Be Advised![/red] For those this winter, caught in Arctic-like calamity, be consoled...
Many are cold, but few are frozen!}