I have code below to copy data and to paste value the data and retain the format
I need to copy the data from sheets "BRT Kirty" up to before sheet "Month" and to paste these as values on these sheets and to retain the format
I need the code below amended to accommodate this
It would be appreciated if someone could assist me
See full code below
I need to copy the data from sheets "BRT Kirty" up to before sheet "Month" and to paste these as values on these sheets and to retain the format
I need the code below amended to accommodate this
It would be appreciated if someone could assist me
Code:
For I = Sheets("BRT Kirty").Index To Worksheets.Count
See full code below
Code:
Sub PasteValues_specficSheets()
Dim LR As Long, I As Long, SH as worksheet
For I = Sheets("BRT Kirty").Index To Worksheets.Count
For Each Sh In ThisWorkbook.Worksheets (I)
If Sh.Visible = True Then
Sh.Activate
Sh.Cells.Copy
Sh.Range("A1").PasteSpecial Paste:=xlValues
Sh.Range("A1").Select
End If
Next Sh
End Sub