I have the following code below to copy and paste data on certain sheets as follows
I would like the code amended so that only the data on the undidden columns are copied and pasted as values
Your assistance is most appreciated
Sub ValueCopyCommSheets()
Dim i As Long
For i = Sheets("BTCON").Index To Sheets("BRDA East").Index
Unhide_All_Columns_in_Workbook
With Sheets(i)
' If .Visible Then
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlPasteValues
End With
Next i
End Sub
I would like the code amended so that only the data on the undidden columns are copied and pasted as values
Your assistance is most appreciated
Sub ValueCopyCommSheets()
Dim i As Long
For i = Sheets("BTCON").Index To Sheets("BRDA East").Index
Unhide_All_Columns_in_Workbook
With Sheets(i)
' If .Visible Then
.UsedRange.Copy
.UsedRange.PasteSpecial Paste:=xlPasteValues
End With
Next i
End Sub
Code: