Hi there,
See if the following code gets you moving in the right direction - it works by copying a range of values between worksheets, one of which is formatted and the other of which is not:
Option Explicit
'=========================================================================================
'=========================================================================================
Const msSHEET__WITHOUT_FORMATTING As String = "Sheet2"
Const msSHEET__WITH_FORMATTING As String = "Sheet1"
Const msRANGE_TO_COPY As String = "C9:S33"
'=========================================================================================
'=========================================================================================
Sub ClearFormatting()
Dim vaDataValues As Variant
vaDataValues = Worksheets(msSHEET__WITH_FORMATTING).Range(msRANGE_TO_COPY).Value
Worksheets(msSHEET__WITHOUT_FORMATTING).Range(msRANGE_TO_COPY).Value = vaDataValues
Worksheets(msSHEET__WITHOUT_FORMATTING).Visible = True
Worksheets(msSHEET__WITH_FORMATTING).Visible = False
End Sub
'=========================================================================================
'=========================================================================================
Sub ShowFormatting()
Dim vaDataValues As Variant
vaDataValues = Worksheets(msSHEET__WITHOUT_FORMATTING).Range(msRANGE_TO_COPY).Value
Worksheets(msSHEET__WITH_FORMATTING).Range(msRANGE_TO_COPY).Value = vaDataValues
Worksheets(msSHEET__WITH_FORMATTING).Visible = True
Worksheets(msSHEET__WITHOUT_FORMATTING).Visible = False
End Sub
The highlighted values may be altered to suit your requirements.
Hope this helps - please let me know how you get on.
Regards,
Greg M
Bookmarks