Hi I have created a macro for my checklist, when the macro is opened it will hide all the sheets except for 'Home' sheet, I have wrote code for hiding sheets in 'ThisWorkbook' object. Home Sheet will have 3 buttons, when I click on the 1st button it will take us to a form, where in it have some controls like combo-box and list-box. upon particular selections made from these combo and list box, a sheet will be unhidden (there are several sheets hidden) which is protected by code. Post that, I will select some check points using data validation in column D, after that there is a drawing object (arrow key) by clicking on this it will take me back to the home sheet and enables 2nd button. when I click on this 2nd button, another form will open, and enables a button in the form, to send it for review, when I click this button, it used to get the value in Cell C5 of the Activesheet and renames it if there are any special characters and creates a copy of this Activesheet to new workbook and saves to a folder path.

it worked fine for few instances, but when I am trying to test it again, it is throwing me an error

'Run time error 1004, Copy method of worksheet class failed' and moreover, it is not reading the cell value in C5 of the Activesheet at replacing the special characters.

Here is the code what I am using

[code]
Sub ReplaceSpecialChars()
Dim SubjArray(0 To 8) As String
Dim i As Integer, j As Integer
Dim StrSubj As String

SubjArray(0) = "\"
SubjArray(1) = "/"
SubjArray(2) = ":"
SubjArray(3) = "*"
SubjArray(4) = "?"
SubjArray(5) = Chr(34)
SubjArray(6) = "<"
SubjArray(7) = ">"
SubjArray(8) = "|"

StrSubj = ActiveSheet.Range("C5").Value
MsgBox StrSubj 'Not getting any value here, it is showing as blank
For i = 0 To 8
StrSubj = Replace(StrSubj, SubjArray(i), " ", 1, -1, vbTextCompare)
Next
MsgBox StrSubj 'Not getting any value here, it is showing as blank
ActiveSheet.Range("C5").Value = StrSubj
End Sub

[\code]

Code for copying the activesheet is shown below
[code]
Sub SendToReview()
Dim Dt As String
Dim StrFilename As String
Dim Folder As String
Dim Fname As String


Application.DisplayAlerts = False
Dt = Format(Now, "yyyy-mm-dd hh-mm")
Folder = "MyPath" & "\"

Fname = ActiveSheet.Range("C5").Value
ActiveSheet.DrawingObjects.Visible = False
ActiveSheet.Copy 'Here it is throwing an error

StrFilename = Folder & Fname & " - " & Dt & ".xlsx"
ActiveSheet.SaveAs Filename:=StrFilename
End sub
[\code]

Any help is really appreciated !!