Help in editing my macro to Loop through All Worksheets in my sample workbook

[tmaster81]

I need some help in editing my macro so that it runs on all the sheets in the workbook.
The problem I am facing is that after running the few steps ... currently my macro has a loop involved i.e. it needs to stop if A2 is empty, While if not it needs to continue.

So can someone help me with editing my macro so that it can run correctly on all the sheet ?
I.e. Stop if the A2 is empty & move on to the next sheet to run the macro from start . If the A2 has some data then run the remaining macro & then move onto the next sheet to run the macro on that till the time all the sheets in the excel are covered.

Attached is my macro & the sample File on which I need to run the macro.

I'll be really glad if someone could help me with edit my macro to run as per my requirements.

Thanks,
TPM

[mike7952]

one way

Please Login or Register  to view this content.

[tmaster81]

Thanks Mike, And sorry for not being clear earlier with my query

My problem is that there are few thing already in my macro which runs (multiple steps) & then the criteria for A2 cell comes.

Can you please edit my existing macro (attached) & run it on the excel (sample attached) to see what I am talking about.

Thanks,
TPM

[mike7952]

Not sure is this what your wanting? Just used your code and added a worksheet loop

Please Login or Register  to view this content.

[tmaster81]

A part of my issue is resolved with the code you modified. But one major problem in my code is still there.

What should be rectified in the code that the macro runs into the next sheet then just exit (as in the below) ?


'Activate Hyperlink

Range("D2").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
If ActiveSheet.Range("D3").Value = "" Then Exit Sub
Next xCell


Thanks,
TPM

[tmaster81]

A part of my issue is resolved with the code you modified. But one major problem in my code is still there.

What should be rectified in the code that the macro runs into the next sheet then just exit (as in the below) ?


'Activate Hyperlink

Range("D2").Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
If ActiveSheet.Range("D3").Value = "" Then Exit Sub
Next xCell


Thanks,
TPM