Loop through a DIM variable

Hi All,

I need to loop through a series of worksheets and I have the worksheets DIMed As String so I can reference them.

I can't get the loop to recognise the number of the assigned Worksheet.

Sub LoopDIM()

Dim ws1 As String
Dim ws2 As String
Dim ws3 As String
Dim ws4 As String

WS1 = "Tab1"
WS2 = "Tab2"
WS3 = "Tab3"
WS4 = "Tab4"

For i = 1 to 10

Sheets(ws, i).Select
Range("A1").select

Next

End Sub

How do I get ws to equal the i?

Any help appreciated

Cheers

Dean