Make a code work for only active sheet, not all sheets.

[Anonymous]

Hi. I have 2 codes. They work beautifully, however they work on all sheets and I just want them to work on the active sheet. Someone who can help me edit the codes?

Code 1 (Delete Scale)

For Each oSheet As Sheet In ThisDrawing.Document.Sheets
	For Each oView As DrawingView In oSheet.DrawingViews
		oView.Label.FormattedText = oView.Label.FormattedText.Replace("<DrawingViewScale/>", "").Replace("(", "").Replace(")", "")
	Next
Next

Code 2 (Delete Border)

Dim oDoc As DrawingDocument
oDoc = ThisApplication.ActiveEditDocument

Dim oCurrentNumber  As Sheet
oCurrentNumber = oDoc.ActiveSheet

' Iterate through the sheets, and delete the title blocks and symbols
Dim oSheet As Sheet
For Each oSheet In oDoc.Sheets
    oSheet.Activate
    
    Try
    oSheet.Border.Delete
    Catch
    'catch error if no border found
    End Try
    

Next

[JhoelForshav · Accepted solution]

Hi @Anonymous 

Seems like this should do it?

Rule 1:

For Each oView As DrawingView In ActiveSheet.Sheet.DrawingViews
	oView.Label.FormattedText = oView.Label.FormattedText.Replace("<DrawingViewScale/>", "").Replace("(", "").Replace(")", "")
Next

Rule 2:

Try
ActiveSheet.Sheet.Border.Delete
Catch
End Try

[Martin-Winkler-Consulting · Accepted solution]

@Anonymous 

This should work:

'Code1
Sub DeleteScale()
 Dim oDoc As DrawingDocument
 oDoc = ThisApplication.ActiveEditDocument
 Dim oActiveSheet As Sheet
 oActiveSheet = oDoc.ActiveSheet
	For Each oView As DrawingView In oActiveSheet.DrawingViews
		oView.Label.FormattedText = oView.Label.FormattedText.Replace("<DrawingViewScale/>", "").Replace("(", "").Replace(")", "")
	Next
End Sub


'Code2
Sub DeleteBorder()
 Dim oDoc As DrawingDocument
 oDoc = ThisApplication.ActiveEditDocument
 Dim oActiveSheet  As Sheet
 oActiveSheet = oDoc.ActiveSheet
	Try
     oActiveSheet.Border.Delete
    Catch
    'catch error if no border found
    End Try
End Sub
  

[Anonymous · Accepted solution]

Perfect! Thank you both. Appreciate your help!