Test Post

Ello mate... did you see the announcement I posted... thought it best to explain re the housekeeping issues - have you enabled your PM yet - I had to do mine in the user CP

Jack ... Dave has yet to get to grips with "admin" issues... so I have v few powers... seem to be able to move/edit/delete posts but cannot change any user levels... so can't do alot til Dave gets his head around admin features

I am off work tomorrow so will have a go at a few things OK buddy...

Great to have Oz back tho...

[vba]sub test()
some code here
end sub[/vba]

Wohoooooo! Way to go Mark R ! :thanx:

[vba]Sub ArrayTest()
Dim ColArray As Variant
Dim rowArray As Variant
Dim MyCol As Integer
Dim MyRow As Long

ColArray = Array(1, 5, 7, 10, 11)
rowArray = Array(2, 5, 7, 8, 9, 11, 15)

For MyCol = LBound(ColArray) To UBound(ColArray)
For MyRow = LBound(rowArray) To UBound(rowArray)
With Sheet1.Cells(rowArray(MyRow), ColArray(MyCol))
.Interior.ColorIndex = 35
End With
Next MyRow
Next MyCol
End Sub[/vba]

another test

[VBA]Sub MultiSheetProtect()
'allows you to protect an array of selected sheets
Dim ws As Worksheet
Dim shtArray() As String
Dim intA As Integer
Dim intB As Integer
' First you need to enter the selected sheet names into an array
For Each ws In ActiveWindow.SelectedSheets
intA = intA + 1
ReDim Preserve shtArray(intA)
shtArray(intA) = ws.Name
Next ws
'Now deselect the selected sheets (clear the read-only setting)
For Each ws In ActiveWorkbook.Worksheets
ws.Select
Next ws
' Now protect sheets we entered into our array "shtArray"
For intB = 1 To intA
ActiveWorkbook.Worksheets(shtArray(intB)).Protect "Password"
Next intB
End Sub

Sub MultiSheetUnProtect()
'allows you to protect an array of selected sheets
Dim ws As Worksheet
Dim shtArray() As String
Dim intA As Integer
Dim intB As Integer
' First you need to enter the selected sheet names into an array
For Each ws In ActiveWindow.SelectedSheets
intA = intA + 1
ReDim Preserve shtArray(intA)
shtArray(intA) = ws.Name
Next ws
'Now deselect the selected sheets (clear the read-only setting)
For Each ws In ActiveWorkbook.Worksheets
ws.Select
Next ws
' Now protect sheets we entered into our array "shtArray"
For intB = 1 To intA
ActiveWorkbook.Worksheets(shtArray(intB)).Unprotect "Password"
Next intB
End Sub[/VBA]

oH COOOOOOOOOOL! :rock:

Hey Mark, no problems. Rome wasn't built in a day and I suspect your new bathroom is no different

Looking good Mark....

Brilliant Mark! You better email me the bill so you can finish your renovations.

Mark,

I noticed in the VBA tags that the keyword Like stays black.... is that an easy one to amend?

See the code in this thread

http://www.ozgrid.com/forum/sh…d.php?p=109799#post109799

:roll:

"Friend"... ... now you're getting obscure on me... we don't get alot of Class Module code here (prob not as much as at vbextreme anyway )

Thanks... I'll point out anything i see anyway mate. (BTW - I see you let us add avatars at your place... Cool!)