Good explanation. With that being said, this worked just fine for your highlight macro (I commented out the other codes for obvious reasons)
Sub fullmacsro()
Dim ws
For Each ws In Array("1 Invoice Notes", " 2 Invoice Print", "4 Register", "6 Estimate Print") 'Note the leading space in the second sheet
Sheets(ws).Unprotect Password:="test"
Next ws
FillCells
'TodaysDate
'PostToRegister
'SavePdf
'SaveXLMFile
'NextInvoice
For Each ws In Array("1 Invoice Notes", " 2 Invoice Print", "4 Register", "6 Estimate Print") 'Note the leading space in the second sheet
Sheets(ws).Protect Password:="test"
Next ws
End Sub
Bookmarks