LinkBack URL
About LinkBacks
Try something like this...
Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="123" ActiveSheet.ChartObjects("Chart 1").Axes(xlValue).MaximumScale = Sheet2.Range("H16").Value + 1 ActiveSheet.Protect Password:="123" End Sub
Try something like this...
Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="123" ActiveSheet.ChartObjects("Chart 1").Axes(xlValue).MaximumScale = Sheet2.Range("H16").Value + 1 ActiveSheet.Protect Password:="123" End Sub
Surround your VBA code with CODE tags e.g.;
[CODE]your VBA code here[/CODE]
The # button in the forum editor will apply CODE tags around your selected text.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks