Hi Colin,
Are you trying to reference a number of different worksheets 
If I've read your post correctly you'll be after something like...
Option Explicit
Private Sub FindDataOnDifferentSheets()
Dim WS1 As Worksheet, WS2 As Worksheet
Set WS1 = ThisWorkbook.Sheets("Sheet1")
Set WS2 = ThisWorkbook.Sheets("Sheet2")
Debug.Print WS1.Range("A:A").Find(100).Address
Debug.Print WS2.Range("A:A").Find(200).Address
Set WS1 = Nothing
Set WS2 = Nothing
End Sub
If this isn't what your after let me know and with a bit more information I may be able to help?
Cheers
Bookmarks