Thread: Macro problem
View Single Post
  #1   Report Post  
Frazer
 
Posts: n/a
Default 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