Sub BUKA_FIRST_TIME()
Dim winAPP As Window
For Each winAPP In Application.Windows
If winAPP.Caption Like "*nama dokumen kamu*" Then 'ganti nama dokumen kamu / change your document name
winAPP.Activate
Exit For
End If
Next
End Sub
_____________________________________________________________________
IMPORTANT - This email and any attachments may be confidential and privileged.
If received in error, please contact Thiess and delete all copies. You may not
rely on advice and documents received by email unless confirmed by a signed Thiess
letter. This restriction on reliance will not apply to the extent that the above email
communication is between parties to a contract and is authorised under that contract.
Before opening or using attachments, check them for viruses and defects. Thiess'
liability is limited to resupplying any affected attachments. THIESS PRIVACY STATEMENT
Tidak ada komentar:
Posting Komentar