Macro problem
Im not too great at macro code, so if anyone could answer a few of the
problems i have with this it would be great....
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
With Target
If Address = "$Y$3" Then
If Value = "1" Then
Sub Macro1()
Dim cnt As Integer
cnt = 1
For Each c In Worksheets("Sheet1").Range("T5:T10").Cells
Range("T" & cnt).Select
On Error Resume Next
Selection.Hyperlinks(1).Follow NewWindow:=False,
AddHistory:=True
cnt = cnt + 1
Next
End Sub
What this is supposed to do is select a hyperlink in a cell when the macro
is run, based on the value of another number, ie in this case the macro
should only run if the value of cell y3 is 1
The main problem with this is that it doesnt actually recognise the value in
the cell y3, it just runs regardless of the value, so i guess there must be
something wrong there....
Also, the actual macro I am trying to run is from the sub macro1 part down-
it selects hyperlinks in a range of cells and opens them
However, the range part does not work unless i start in cell T1, which i do
not want to do, i need a range from say T5:T10, but in that case it would
only do T1:T5 for some reason
can anyone help???
thnx
|