Looking for Assisttance: Copy and Past as Values VBA Coding

[bepedicino]

I am a newbiee with no VBA experince. I have the following code that copies all sheets and then paste it as values. I would some assistance if someone could please modify the code to unhide all hidden columns first and then past all as values. If possible, I would then like it to delete all sheets other than the one that I have selected.

Any help would be greatly appreciated!

Sub Test()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Visible = True Then
Sh.Activate
Sh.Cells.Copy
Sh.Range("A1").PasteSpecial Paste:=xlValues
Sh.Range("A1").Select
End If
Next Sh
Application.CutCopyMode = False
End Sub

 

[NeonRedSharpie]

What you're asking for and what your code does are somewhat different. But here's the code:

Sub valuesAndDelete()

    With Application
        .Calculate
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .DisplayAlerts = False
    End With

    With ActiveSheet
        .Columns.Hidden = False
        .Rows.Hidden = False
        .UsedRange.Value = .UsedRange.Value
    End With
    
    For Each Worksheet In ThisWorkbook.Worksheets
        If Worksheet.Name = ActiveSheet.Name Then
        Else
            Worksheet.Delete
        End If
    Next Worksheet

    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .DisplayAlerts = True
    End With


End Sub

 

[bepedicino]

Thank you so much; You just made this a great day!